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Job ; r e 1 oc . s 

Date: Tue Jul 9 12:43:17 1985 


91 *? 
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* Conditional 

assembly equate 

rom 


0 

ram 


1 

usa 

= 

0 

germany 

= 

1 

franco 


2 

uk 


3 


* Version 

information; 

version 

equ *0100 

date 

equ *06141985 


* Conditional 

assembly switch 

systype = 

ram 

country = 

usa 


i generate ROMable system 
i generate loadable system 

; for USA 
i for Deutchland 
; for France 
; for Britain 


i system version number <WRR) 
i date system was built 


i type of system 
i country 


*+ 

* Parameters for RAM and ROM systems; 

* Adjust these equates with system size and location changes. 

* 'endos' points to the last bit of RAM the system uses (plus one). 

* 'the_magic' points to a parameter block containing information 

* about the location of the AES< and how much RAM it uses. 

* 

*- 

ifeq systype-rom 
endos equ 

the_magic equ 

endc 


*5000 

*fefff4 


For ROM: 

end of OS memory usage 
-> magic stuff (top of the ROM) 


ifeq systype-ram 
endos equ 

the_magic equ 

endc 


*19c00 

endo5-*c 


* For RAM; 

; end of OS memory usage 

f -> magic stuff (at the top of the OS) 


# 

« 

ST Series BIOS 

* (01985 Atari Corp. 

* All Rights Reserved. 

» 

* System Initial i zation 

* ROM header 

* RAM variable equates 

* Edit history: 

« 

* (lost history) CFrom Oct '84# incarnations as part of 

* the debugger cart# and the CP/M-6SK BIOS! 


% B'G 
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L985 

«• 

02-Feb-1985 

Imd 


24-Feb-1985 

Imd 


25-Feb-1985 

Imd 

# 

25-Feb-1985 

Imd 

■tt 




27-Feb-1985 

Imd 

* 

1 -Mar- 1985 

Imd 

# 

1 -Mar-1985 

Imd 


4-Mar-1985 

Imd 

■tt 

7-Mar-1985 

Imd 

# 

8-Mar-1985 

Imd 

# 

9-Mar-1985 

Imd 

# 



* 

10-Mar-19S5 

Imd 

* 

15-Mar- 1985 

Imd 


16-Mar-1985 

Imd 


27-Mar-1985 

Imd 

* 

27-Mar- 1985 

Imd 


8-Apr-1985 

Imd 

* 

8-Apr-1985 

Imd 


9-Apr-1985 

Imd 

* 

9-Apr-1985 

Imd 

* 

13-Apr-1985 

Imd 

* 

15-Apr-1985 

Imd 

# 

15-Apr-1985 

Imd 

* 

17-Apr-1985 

Imd 

* 

17-Apr-1985 

Imd 

» 




1 -May -1985 

Imd 


8-May -1985 

Imd 




# 

9-May- 1985 

Imd 

* 

15-May-1985 

Imd 


23-May- 1985 

Imd 

» 



* 

24-May-1985 

Imd 

* 



# 

28-May- 1985 

Imd 


* 

« 

«■ 
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Converted from CP/M BIOS. 

I munge this file every day. 

Added _cmdload flag (load COMMAND.COM from disk) 
Changed _get_mpb# added ‘‘hard_reset" conditional 
assembly suitch. 

Added hard disk hooks. 

Added _supstk (from GEMDOS) 

Added _mediach BIOS function 

Added 'cartscan' and associated calls to it 
Integrate new character I/O 

Critical error handler, random trap hacking 
BIOS traps are re-entrant to 3 levels, and 
callable from user mode. 

Consolidated BSS. installed "extended" traps 
Re-integration with RBIOS. 200hz raw sysTick 
Warmstart banished. Procdump on uncaught traps 
Added "_scrdmp” trap#14 function 
Added "getshift" trap#13 function 
Re-integration with serial code 
Moved floppy/FIFO lock to public basepage 
get/set shift bits (trap #13. 40b) 

Added _dskbufp -> _diskbuf 

Added _autopath (autoexec path pointer) 

Happy IRS day. 

Moved _vblqueue to low memory (thank Ghuf) 

Added _prtblk primitive 

Hblank (vector interrupt #2) hacks caller's IPL 
to 3. 

Added supexec() & wvb 1 ( ) extended functions 
RAM-loaded system wired 'memcntrl ' to 512K; 
now it takes whatever the boot ROMs give it. 
Added _asc_out to character device table. 

Moved _cursconf to escape module. 

Added 'magic' parameter — makes it easy to 
blow the GEM AES away. Huzzah! 

Added mushroom cloud display on processor 
exception, out of sheer boredom. 

Added new _prtblk. Screen dump understands high 
quality print mode. 


text 



Exports: 

. g lob I 

endosbss 

. globl 

_dumpf Ig. _prtcnt 

. globl 

prtabt 

. globl 

flock 

. globl 

ssh i f tmd 

. globl 

etv_timer 

. globl 

_membot 


(informative) end OS bss 
screen dump flag (8e its alias) 
printer abort flag 
floppy/FIFO lock 
shiftmd shadow 
timer handoff vector 
(best guess) bottom of TPA 
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globl 

__memtop 

g 1 ob 1 

_t imr_ms 

globl 

_vb 1 queue 

globl 

_v b c 1 0 c k 

globl 

_f r c lock 

globl 

_v_bas_ad 

globl 

c on_state 

globl 

save row 

globl 

_buf 1 

globl 

_b ootd ev 

globl 

_cmd 1 oad 

globl 

c onterm 

globl 

_n f 1 0 p s 

globl 

_c r i t i c 

globl 

_hz_200 

globl 

seekrate 

globl 

_f ver i f y 

globl 

_drvb its 

globl 

c onterm 

globl 

_h i n i t 

globl 

_d 5 k b oot 

globl 

_fastcpy 


i top of TPA (first unusable byte) 
i system timer calibration (in ms) 
i vb 1 queue 

i count of unblocked vblank interrupts 
i count of all vblank interrupts 
i video base addr 
i state of conout() parser 
i saved row# for cursor X-Y addressing 
; two buffer-list headers 
i default boot device COl 
i nonzero: exec shell on boot device 

i terminal emulator bitSwitches 
i "Hey! Clams got floppies!" 
i critical error handler binding for C 
i 200hz raw system timer tick 
, default floppy seek rate 
i nonzero: verify on floppy write 

; long bitmap of block devices 
; console/vt52 bits 

; go through hdv_init 
/ boot from somewhere 
; fast copy (for unaligned DMA) 




— 

- Imports: 



globl 

cursconf 

cursor configuration 


globl 

asc out 

"raw" character output 

to screen 

globl 

pconf ig 

printer configuration 

word 

globl 

_prtb 1 k 

_prtblk primitive 


globl 

esce 

-Cescape. s> "hard" turn 

on cursor 

globl 

_os i 

initialize OS 


globl 

initmf p 

init character I/O 


globl 

esc_init 

init glass tty 


globl 

ini tmous 

mouse vector init 


globl 

med iach 

media change inquiry 


globl 

_proto_b t 

prototype boot sector 


globl 

_f 1 o p wr 

write sector ( s ) 


globl 

_f 1 op ver 

ver i f y sector ( s ) 


globl 

_f lopfmt 

format track 


globl 

_rand 

generate random number 


globl 

au X i stat 

input— status 


globl 

constat 



globl 

mi d stat 



globl 

_1 st i n 

input 


globl 

auxin 



globl 

con in 



globl 

mid in 



globl 

_1 stostat 

output-status 


globl 

_au X ostat 



globl 

c onoutst 



globl 

i kbdost 
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g lob 1 mid iost 


g 1 ob 1 

_1 stout 


g 1 ob 1 

_a u X 0 u t 


g lob 1 

c onout 


g lob 1 

mid iwc 


g lob 1 

ikbdwc 


globl 

mid iws 


g lob 1 

mf p int 


globl 

iorec 


globl 

rsconf 


globl 

key trans 


globl 

settime 


globl 

gettime 


globl 

b ioskeys 


globl 

ikbdws 


globl 

lineiOlO 

i 

globl 

kbshift 

i 

globl 

jd isint 


globl 

jenab int 


globl 

g iacc ess 


globl 

of f g ib it 


globl 

ong ib i t 


globl 

xb timer 


globl 

d osound 


globl 

setprt 


globl 

kbrate 


globl 

i kbdvecs 


globl 

_5 u p s t k 

i 

globl 

_d i s k b u f 

f 

globl 

oetdsb 

i 

globl 

_boot 

i 

globl 

_rwab s 

i 

globl 

qetbpb 

i 

globl 

_d s k i n i t 

i 

globl 

_flopvbl 

} 

globl 

_floprd 

i 

globl 

blink 

i 


output 


write MIDI string 

setup MPP interrupt 

configure I/O record 

configure RS-232 

store keyboard translation 

set ikbd date 

get ikbd date 

reset keyboard to power-up defaults 
write string to ikbd 

line 1010 handler 
keyboard shift status 


GEMDOS super stack 
disk buffer 

return disk's state pointer 
load and check boot sector 
read/write on block dev 
get bios parameter block 
disk system ini t ial i zat i on 
floppy vblank handler 
read sector(s) 
cursor blink (vblank) 


* 

* Default System Parameters. 

* Do not change these much. 


* 



df_seek 

equ 

*0003 

dnvb 1 s 

equ 

8 

nlevels 

equ 

5 


default seek-rate (3ms> 

default number of vbl q,ueue entries 

max # recursive BIOS calls 




Jul 9 12; 43 1985 startup, s Page 5 


savs i z 


equ 23 


size (.W) of BIOS trap save— context 


* 

r esmag i c 
d iagmag ic 
apmag ic 
memmag i c 
menunag2 
b ootmag i c 


Magic Numbers 
equ $31415926 

equ $fa52235f 

equ $abcdef42 

equ $752019f3 

equ $237698aa 

equ $1234 


validates 'resvalid' 
validate diagnostic cartridge 
validate application cartridge 
validates ^memvalid' 
validates 'memval2'' 
magic checksum for boot sector 


* 


Data Structures 


* Floppy state variables: 


df used 

equ 

0 

dcurtrack 

equ 

d f used+2 

dseekrt 

equ 

d c ur trac k+2 


i nonzero: floppy has been accessed 

i current track# 
i floppy's seek-rate 


* Cartridge application: 


ca_ne x t 

equ 

0 

ca_f lags 

equ 

4 

ca_init 

equ 

4 

ca_run 

equ 

8 

ca_time 

equ 

$c 

ca_date 

equ 

$e 

ca_si ze 

equ 

$10 

ca_name 

equ 

$14 


(,L> link to next application 
(.B) run flags (MSB of ca_init> 
(.L) pointer to init code 
<.L) pointer to run code 
(.W) DDS-format creation time 
(,W) DOS-format creation date 
(.L> application size 
application name (NNNNNNNN. EEEXO) 


* Ram configuration equates 

bankl equ $200000 

tujomb equ 1024*2048 

one28 equ $20000 


Hardware Equates 


* ROM 

romstar t 
romend 
car tbase 
car ts i I e 


addresses; 

equ $fa0000 
equ $ff0000 
equ $fa0000 
equ $20000 


* Shifter; 

memconf equ 

syncmode equ 


$ffff8001 
$ff ff820a 


address of 2Mb second bank 

two megabytes 

128K 


lowest ROM address 
first byte not in ROM 
start of cartridge ROM 
size of cartridge (128K) 


memory controller 
video sync mode 
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dbasel 


equ 

$ff f fS203 

dbaseh 


equ 

$f f f f8201 

colorO 


equ 

$ff f f8240 

sh i f tmd 


equ 

$fff f8260 

# DMA 

t chip 



diskctl 


equ 

$f ff f8604 

f if o 


equ 

$ff ff8606 

dmah igh 


equ 

$f ff f8609 

dmami d 


equ 

$ff ff860b 

dma 1 ow 


equ 

$ffff860d 

* 1770 select values: 


cmdreg 


equ 

$80 

tr kr eg 


equ 

$82 

secreg 


equ 

$84 

datar eg 


equ 

$86 

* GI 

("psg 

" ) sound chip: 

g i sel ect 

equ 

$f f f f8800 

g ir ead 


equ 

$f f f f8800 

g i write 


equ 

$ff f f8802 

g imi xer 


equ 

7 

g i p or ta 


equ 

$e 

g iportb 


equ 

$f 

* 

Bits 

in "giporta": 

xrts 

equ 

8 


dtr 

equ 

$10 


strobe 

equ 

$20 


gpo 

equ 

$40 


* 68901 (" 

mfp") sticky chip: 

mfp 

equ 

$f f ff faOO 

gpip 

equ 

mf p + 1 


aer 

equ 

mfp +3 


d dr 

equ 

mf p+5 


i era 

equ 

mf p+7 


ierb 

equ 

mfp +9 


ipra 

equ 

mfp +$b 


i pr b 

equ 

mf p +$d 


i sr a 

equ 

mf p+$f 


i sr b 

equ 

mf p+$l 1 


imra 

equ 

mf p+$13 


imrb 

equ 

mf p +$1 5 


vr 

equ 

mf p+$l 7 


tacr 

equ 

mf p+$19 


tbcr 

equ 

mf p+$l b 


tc d cr 

equ 

mf p+$I d 


tadr 

equ 

mf p+$l f 


tbdr 

equ 

mf p+$21 


tcdr 

equ 

mfp +$23 


tddr 

equ 

mf p+$25 


scr 

equ 

mf p+$27 


ucr 

equ 

mfp +$29 


r sr 

equ 

mf p+$2b 



display base lou/ 

display base high 

color palette #0 

video shift mode (resolution) 


disk controller data access 

DMA mode control 

DMA base high 

DMA base medium 

DMA base lotu 


1770/FIFO command register select 
1770/FIFO track register select 
1770/FIFO sector register select 
1770/FIFO data register select 


(W) sound chip register select 
(R) sound chip read-data 
(W) sound chip write-data 
I/O control/volume control register 
GI register# for I/O port A 
Centronics output register 


RTS output 
DTR output 

Centronics strobe output 
"general purpose" output 


mfp base 

general purpose I/O 
active edge reg 
data direction reg 
interrupt enable A & B 

interrupt pending A & B 

interrupt inService A & B 

interrupt mask A B 

interrupt vector base 

timer A control 

timer B control 

timer C & D control 

timer A data 

timer B data 

timer C data 

timer D data 

sync char 

USART control reg 

receiver status 





Ju 1 
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tsr equ mfp+$2d 

udr equ mfp+$2f 


transmit status 
USART data 


# 6850 registers; 


keyctl equ 
keybd equ 
midictl equ 
midi equ 


ffffcOO 
key ctl+2 
*ff ff fc06 
mid ic 1 1+2 


i keyboard ACIA control 
; keyboard data 
i MIDI ACIA control 
i MIDI data 


*+ 

* Dump area 


* Processor 
« 

state is 

dumped here after an 

uncaug h t 

trap 


*- 

proc_l i ves 

equ 

*380 

i 

lives if 

*12345678 

proc_regs 

equ 

proc_l ives+4 

i 

D0-D7/A0- 

A7 

proc_pc 

equ 

proc_regs+*40 

f 

PC 


pr oc_usp 

equ 

proc_pc+4 

i 

USP 


proc_stk 

equ 

p r o c _u 5 p +4 

i 

six words 

of stack 


■«•+ 

« Base of system BSS. 

* Starts at $400» just above interrupt vector RAM. 

« 

* These will never change in future releases of the system. 

* 

*- 

bss 

♦ "extended" trap vectors: 


etv_t imer : 

ds. 1 

1 

(400) 

vector for timer interrupt chain 

etv_cr itic : 

ds. 1 

1 

(404) 

vector for critical error chain 

etv_term: 

ds. 1 

1 

(408) 

vector for process terminate 

etv_x tra; 

ds. 1 

5 

(40c ) 

5 reserved vectors 

memvalid: 

ds, 1 

1 

(420) 

indicates system state on RESET 

memcnt Ir : 

ds. w 

1 

(424) 

mem controller config nibble 

resval id ; 

ds. 1 

1 

(426) 

validates 'resvector' 

resvector : 

ds. 1 

1 

(42a) 

CRESETl bailout vector 

phystop: 

ds. 1 

1 

(42e) 

physical top of RAM 

_membot: 

ds. 1 

1 

(432) 

bottom of available memory; 

_memtop : 

ds. 1 

1 

(436) 

top of available memory; 

memval2; 

ds. 1 

1 

(43a) 

validates 'memcntlr' and 'memconf 

flock: 

ds. w 

1 

(43e) 

floppy disk/FIFO lock variable 

seekrate; 

d s. u> 

1 

(440) 

default floppy seek rate 

_timr_ms; 

ds. w 

1 

(442) 

system timer calibration (in ms) 

_f ver i f y ; 

d s. w 

1 

(444) 

nonzero: verify on floppy write 

_b ootd ev; 

ds. w 

1 

(446) 

default boot device 

palmode: 

ds. w 

1 

(448) 

nonzero ==> PAL mode 

def sh i f tmd : 

ds. w 

1 

(44a) 

default video rez (first byte) 
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ssh i f tmd : 

d s. uj 

1 

(44c ) 

shadoui for 'shiftmd' register 

_v_bas_ad : 

ds. 1 

1 

(44e> 

pointer to base of screen memory 

vb i sem: 

d s. u; 

1 

(452) 

semaphore to enforce mutex in vbl 

nvb 1 s : 

d s. ui 

1 

(454) 

number of deferred vectors 

_vb 1 q.ueue : 

ds. 1 

1 

(456) 

pointer to vector of deferred vfuncs 

c 0 1 orp tr : 

ds. 1 

1 

(45a) 

pointer to palette setup (or NULL) 

screenpt: 

ds. 1 

1 

(45e> 

pointer to screen base setup ('NULL) 

_vbc loc k : 

ds. 1 

1 

(462) 

count of unblocked vblanks 

_frc lock: 

d s. 1 

1 

(466) 

count of every vblank 

hdv_init; 

ds. 1 

1 

(46a) 

hard disk in i t ia 1 i zat i on 

5uiv_vec : 

ds. 1 

1 

(46e) 

video change-resolution bailout 

hdv_bpb ; 

ds. 1 

1 

(472) 

disk "get BPB" 

h d v_riu: 

ds. 1 

1 

(476) 

disk read/uirite 

h dv_boot : 

ds. 1 

1 

(47a) 

disk "get boot sector" 

hdv_med iach : 

ds. 1 

1 

(47e) 

disk media change detect 

_cmd load : 

ds. UI 

1 

(482) 

nonzero; load COMMAND.COM from boot 

conterm: 

ds. b 

1 

(484) 

console/vt52 bitSuiitches (7,%0. . 7.7.2) 


ds. b 

1 

(485) 

Cunusedj reserved^ 

trp 14ret: 

ds. 1 

1 

(486) 

saved return addr for _trapl4 

criticret: 

ds. 1 

1 

(48a) 

saved return addr for _critic 

th emd : 

ds. 1 

4 

(48e) 

memory descriptor (MD) 

Old : 

ds. u> 

2 

(49e) 

(more MD) . 

savptr : 

ds. 1 

1 

(4a2) 

pointer to register save area 

_n f 1 0 p s : 

ds. u 

1 

(4a6) 

number of disks attached (0< 1+) 

c on_state : 

ds. 1 

1 

(4a8) 

state of conout() parser 

save_rouj: 

ds. UI 

1 

(4ac ) 

saved roui# for cursor X-Y addressing 

sav context: 

ds. 1 

1 

(4ae) 

pointer to saved processor context 

buf 1: 

ds. 1 

2 

(4b2) 

tuio buffer-list headers 

_hz_200: 

ds. 1 

1 

(4ba) 

200hz raw system timer tick 


ds. 1 

1 

(4be) 

reserved for future use 

_drvb its: 

ds. 1 

1 

(4c2) 

bit vector of "live" block devices 

_d 5 k b u f p : 

ds. 1 

1 

(4c6) 

pointer to common disk buffer 

_autopath : 

ds. 1 

1 

(4ca) 

pointer to autoexec path (or NULL) 

_vb 1_1 i st : 

ds. 1 

8 

(4ce) 

initial _vblqueue (to <4ee) 

_prtcnt: 



» (4ee) 

screen-dump flag alias 

_dumpf Ig : 

ds. UI 

1 

(4ee) 

screen-dump flag 

_prtabt: 

ds. UI 

1 

(4f0) 

printer abort flag 

__sy sbase: 

ds. 1 

1 

(4f2) 

-> base of OS 

_5 h e 1 1 _p : 

ds. 1 

1 

(4f6) 

-> global shell info 

end_os: 

ds. 1 

1 

(4fa) 

-> end of OS memory usage 

e X e c _o 5 : 

ds. 1 

1 

(5fe) 

-> address of shell to exec on startup 

* Start of no 

-man's lane 

(locations beyond this point subject to change): 

the_env: 

ds. b 

20 


; space for a small enviroment string 

savarea: 

savend: 

endosbss: 

ds. ui 

savsi z*n levels 

i register save area 

* end of register sav area 

* end of "base" BSS 
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. text 


*+ 

* System startup parameters 


* In ROM/ these 

are 

found at $FCOOOO. 




* In any event/ 

* 

they 

are found at *(_5t 

_b eg os ) . 


*- 

ostext: 

bra. 

s reseth 


($0) 

branch to reset handler 


dc. u 

version 


($2) 

OS version number 


dc. 1 

reseth 


($ 4 ) 

-> system reset handler 

os_beg: 

dc. 1 

ostext 

i 

($ 8 ) 

-> base of OS 

os_end : 

dc. 1 

end os 

i 

($c ) 

-> end of OS memory usage 

os_exec : 

dc. 1 

reseth 

} 

($10) 

-> default shell 

os_mag i c : 

dc. 1 

th e_mag ic 

$ 

($ 14 ) 

-> GEM magic (or NULL) 

os_date: 

dc. 1 

date 

/ 

($ 18 ) 

date the system mas built 

05 conf; 

d C . tK 

0 

i 

($la) 

configuration bits 


ifeq systype-rom 
*+ 

* CROM based systemi 

* reseth - System reset handler 

* 

* Gains control of the system upon pouei — up reset/ 

* or when the RESET button is pressed/ 

* or after a really messy system crash. 

« 

*- 

reseth : 

move, w #*2700/ sr ! super mode/ no interrupts 

reset > reset harduiare 

endc 


ifeq systype-ram 
*+ 

« CRAM based systemi 

* reseth - Startup the system 

* 

* Gains control from the boot loader 

* as soon as the OS has been relocated. 

* 

*— 

reseth ; 

move, (u #$2700/ sr / super mode/ no interrupts 

endc 


ifeq systype-rom 
*+ 

* CROM based systemi 

* Check for a diagnostic cartridge/ 

* if one is inserted/ load a return address 

* into A6 and jump to the cart's entry point. 
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* 



cmp. 1 

#diagmagici cartbase 

# is the magic number there? 


bne 

resetl 

# (no ) 


1 ea 

reset l(pc)#a6 

» a6 -> return address 

endc 

jmp 

cartbase+4 

» execute diagnostic cartridge 


ifeg systype-rom 
*+ 

* CROM based system] 

* If this is a uiarm reset< setup the memory 

* controller configuration register so that 

* the reset-bailout vector has something to 


* stand 

■ft 

on . . . 



#- 

resetl : 





lea 

ret_l ( pc ) • a^ 

> load return addr 


bra 

va l_memva 1 

> check memory configuration validity 

ret_l : 

bne 

reset2 

; (invalid — don't set anything up) 


move, b 

memcntlr# memconf 

» initialize memory controller 

endc 





ifeq systype-rom 
*+ 

« CROM based system] 

* RESET bailout vector check. 

* Check to make sure ue have a clean# well-bred 

* bailout vector. The high byte must be zero# 

* it must be even# and cannot be entirely zero. 

* 


reset2: 

c Ir. 1 

a5 

quick zeropage 


cmp. 1 

#resmag i c# resval id (a5) 

is resvalid the magic number? 


bne 

resets 

( no ) 


move. 1 

resvector (a5) f dO 

dO = reset bailout vector 


tst. b 

resvector (a5) 

bits 24. . SI must be zero 


bne 

resets 

(they aren't, so punt) 


btst 

#0# do 

the vector must be even 


bne 

resets 

(it isn't# so punt) 


move. 1 

dO# aO 

aO -> reset handler 


lea 

reset2(pc )# a6 

a6 -> return address 


jmp 

(aO) 

execute reset bailout 

endc 

ifeq systype- 

ram 


*+ 

# CRAM 

based 

system] 



* Setup the reset-bailout vector to point 
« to our own system-reset handler. 
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move. 1 r e se th ( r e 5 vec t or 
move. 1 #resmag i c j resval id 

end c 


*+ 

* Initialize PSO output ports 

* Make ports A and B output-only; 

* initialize floppy select lines (so 


t h a t 

none are selected). 


*- 

r esetO: 

1 ea 

giselect# aO 

; aO -> giselect# giwrite-2 


move, b 

#7# (aO) 

# set porta & portb to output 


move, b 

#$cO, 2(a0> 


move, b 

#$e. (aO) 

# deselect disks 


move, b 

#7# 2(a0) 



•«■+ 

* Determine 50hz or 60hz. 

* The hard mare RESETs to 60hz. 

* ROM configuration byte to 

* the hardware 

* 

*- 

btst. b #0< os_c onf ( pc ) 

beq notpal 

move. b #^02> syncmode 

notpal: 


check bit: configured for 50hz? 

(nope — we ‘'re good ol' NTSC) 
yes — twiddle to 50hz 


Check a bit in the 
see if we have to twiddle 
into 50h 2 mode. 


*+ 

« 

* 

* 

*- 


Initialize palette registers to 
their default values. 


lea 

move, w 
lea 

sy s i c 1 ; move, w 
dbra 


colorOj al 

#16-1, do 

colors(pc ), aO 
(aO)+, (al )+ 
dO, sy s i c 1 


; al -> hardware reg 
# setup 16 colors 
’ aO -~y table of default colors 
; copy palette assignment 
; (loop for more colors) 


ifeq systype-rom 
#+ 

* On a ROM system# put the screen (temporarily) 

* at $10000# so the icon— drawing routines won't 

* blow away any system variables. 

*- 

move, b #$01# dbaseh ; set high ptr 

move. b #$00#dbasel ; set low ptr 

endc 


f30 
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ifeq systype-rom 
•«■+ 



CROH based 

sy steml 




Determine houi much memory there is/ and initialize 

* 

w 

the 

memory 

controller configuration r 

egister. 


Algorithm from Jim Tittsleri 

Art Morganj et al. 

* 

but 

shamelessly modified for 

the hell 

of i t. 

* 

The 

bottom 

IK of memory is only touched on the first RESET^ 

* 

to 

size memory and setup the 

memory controller. The first IK 

* 

* 

i s 

never cleared. 



*- 


c Ir. 1 

a5 


quick zeropage 



move, b 

memcntlr (a5) I d6 


d6 = memory controller configu 



move. 1 

phystop (a5)i d5 


d5 -> (possible) top of physic 



lea 

r et_2 ( pc ) » a6 


load return address 



bra 

val_memval 


get memory controller validati 

ret_2: 

beq 

reset4 


already sized — don't size or 


— init vars 

+ hardware: 





clr. w 

66 


d6 = configuration byte 



clr. 1 

65 


d5 -> physical top of RAM 



move, b 

#40a< memc onf 

i setup controller for 2Mb/2Mb 

*- 

— write test-pattern to both 

banks: 




move, w 

#8. aO 


aO -> bankO (skip ROM shadow) 



lea 

bank l-»-8< al 


al -> bankl 



clr. w 

dO 


dO = start of pattern 

fmeml : 

move. ID 

dO, <aO)+ 


write to bank 0 



move, uj 

60, (al ) + 


write to bank 1 



add. ui 

#*fa54i dO 


bump pattern with a magic numb 



cmp. 1 

#«200i aO 


filled $200 bytes? 



bne 

fmeml 


(noi loop) 

*+ 





* 

Determine size of both banks 



* 

w 

from 

test-pattern signatures: 



•»T” 


move. 1 

#banklj d 1 


dl = bank offset (start with b 

menil : 

Isr. w 

#2. 66 


(shift bankl's size into posit 



move. Ill 

*«208> aO 


pattern matches at $208? 



lea 

memr 1 ( pc ) / a5 


a5 -> return addr 



bra 

memch k 


(check the pattern) 

memr 1 : 

beq 

mem2 


yes — 128K 



move, ui 

#«408, aO 


pattern matches at $408? 



lea 

memr2( pc ) , aS 


a5 — > return addr 



bra 

memchk 


(check it ) 

memr 2: 

beq 

mem3 


yes — 512K 



move. UI 

«8i aO 


pattern matches at $8? 



lea 

memr3< pc ) , aS 


a5 -> return addr 



bra 

memchk 


(attempt match) 

memr 3: 

bne 

mem4 


no — nothing in this bank 



add. 1 

#bankl-*80000-*20000, d5 

adjust size for 2M bank 



addq. ui 

#4, 66 


adjust config byte for 2M 


test 


1 ) 


^3i 
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mem3; 

add. 1 

#*80000~*20000/ o5 

; .5 d j s t size fo r 5 1 2K b a r. k 


addq. w 

#4, d6 

; aajust conf:ig byte for 512K 

mem2; 

a d d . 1 

#*20000, dS 

: adjust size for 128K bank 

mem4: 

5 U fa . 1 

#ban k 1 / d 1 

-Jecre.rent bank number 


fa eq 

memi 

.. repeat check for bank 0 

cold3: 

move, b 

d6, memc onf 

; setup memory controller 


end c 


ifeq systype-rom 
*+ 

* CROM based system] 


* Clear 

memory 

from *400 to 

* 

»- 




move, 1 

d5, aO 


move. 1 

#*400/ d4 


movem. 1 

zer os < pc ) / dO 

c lm_l ; 

movem. 1 

d0-d3/ - ( aO ) 


cmp. 1 

d4/ aO 

endc 

bne 

c lm_l 


( p h y s top ) . 

; start at the end 
where to end 
j get some cheap zeros 
j ... work our way back 
; done? 

i (loop for more bytes) 


ifeq systype-rom 
*+ 

* Indicate that memory has successfully 

* been sized and tested. Set two variables 

* to magic values ... 

« 


*- 


endc 


c Ir. 1 
move, b 
move. 1 
move. 1 
move, 1 


a5 

d6i memcnt Ir ( a5 ) 
d5> phystop <a5) 

#memmag i c i memva 1 i d (a5 ) 
#memmag2^ memva 1 2 < a5 ) 


} cheap zeropage 
i save configuration byte 
; save physical top-of-memory 
; indicate memory was configured 
i ditto (paranoia variable) 


reset4: 

c 1 r . 1 a 5 


quick z eropag e 


ifeq systype-rom 
*+ 

* CROM system] 

* Clear bottom 64K (or so) of memory. 

* (this is sufficient for GEMDOS and the AESi 

* which require their BSS to be zero when 

* they are started up). 

* 

#- 

move, w #endosbss»aO ; aO -> start 

move. 1 #*10000/ al ; al -> end 

endc 
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ifeq systype-ram 
-»■+ 

* CRAM loaded systemU 

* Clear OS bss (from 'endosbss' to 'ostext') 

* 


move. Ill #endosbss>aO ; aO -> start 

move. Ill #ostextial ; al -> end 

endc 


* 

c Irm 


common code to clear memory; 

moveq #0 j dO 
,1: move, u dOj (a0) + 

cmp. 1 aOi al 
bne clrm 1 


quick zero 
clobber a uord 
at end? 

(no — loop for more uiords) 


*+ 

* 

* 

■«— 


Setup display base> 
clear display memory. 


clrm 2: 


move. 1 

phystop (a5), aO 


sub. 1 

#♦8000/ aO 


move. 1 

aO/ _v_bas_ad (a5) 


move, b 

_v_bas_ad + l (a5), dbaseh 

f 

move, b 

_v_b a s_a d+2(a5)/ dbasel 

i 

move, u 

#♦800-1/ dl 

i 

move. 1 

dOi (aO) + 

S 

move. 1 

do, (aO)+ 

} 

move. 1 

dO/ (aO)+ 

$ 

move. 1 

dO/ (aO)+ 

i 

dbra 

d 1, c Irm 2 



video_base = phystop - 0x8000 
load high addr 

load louj (really/ medium) addr 

dl = # 16-byte chunks to zero 

zero a longuord 

zero a longuord 

zero a longuord 

zero a longuord 

(loop for more longuords) 


» Initialize all kinds of OS variables 
* 

*- 


* DS parameters: 


move. 1 
cmp. 1 
beq 
lea 

usem: move. 1 

move. 1 


os_magic (pc )i aO 
#*87654321, (aO) 
usem 

os_end-4(pc ), aO 
4(a0)/ end_os 
8(a0) / exec os 


i get pointer to magic 
i is the magic there? 

» yes — use numbers there 
i no, use default numbers 
i init end-of-OS pointer 
; init default-shell pointer 


* 


Disk vectors: 

move. 1 #_d 5 k ini t, hdv_ini t (a5> ; 

move. 1 #_ruabs, hdv_ru(a5) , 

move. 1 # qetbob/hdv bob(a5) i 

move. 1 # mediachi hdv mediach(a5) 


initial i zation 
read/urite absolute sectors 
get BIOS parameter block 
i media change inquiry 


■53J 



Ju 1 
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move. 1 

#_b o 0 1 , h d v_b o o t ( a 5 ) 

Randoms : 

move. 1 

v_b a 5 _a d ( a 5 ) , _me m t o p ( a 5 ) 

move. 1 

end_os (a5 > , _memb ot (a5 ) 

1 ea 

_5 u p 5 t k +2048, sp i 

move . w 

#dnvb 1 s, nvb 1 s ( a 5 ) 

st 

__f V e r i f y ( a 5 ) i 

move, w 

#d f _see k , s ee k ra te ( a5 ) i 

move. 1 

#_d i s k b uf , _d 5 k b uf p (a5 ) i 

move, w 

#-l,_prtcnt(a5) ; 

move. 1 

#oste X t, _sy sbase ( a5 ) ; 

move. 1 

#savend , savp tr ( a5 ) i 

move. 1 

#_r ts, swv_vec ( a5 ) ; 


boot-from- device 


' _memtop = _v_bas_ad 

set bottom of- memory (for DOS) 

setup supervisor stack 

default number of vbl queue entries 

enable ur i te ■ ver i f y 

set default seek-rate 

setup pointer to disk buffer 

initialize print-count 

-> base of OS 

reg i ster— save pointer for traps 13S<14 
ignore monitor changes for now 


*+ 

* Initialize interrupt vectors 

* 

* If a diagnostic cartridge is inserted, the "random” vectors 

* (for Bus Error, Address Error, and so on) are left alone. 

* 

Otherwise, the random vectors are pointed to the system critical 

* error handler ( term). The high byte of the vector (bits 24. . 31) 

* contains the exception number. CYes, this will lose on a 68020. 3 

* 

* Trap 2 and Di vi d e-b y- z er o are pointed at an RTE. 

* 

* The HBLANK, VBLANK, line 1010, [someday: line 11113, trap 13, trap 14, 

* and "extended" trap vectors are initialized appropriately. 

* 

*- 

lea _rte(pc),a3 j a3 — > handy RTE 

lea _rts(pc),a4 ; a4 -> handy RTS 


•» diagnostic cartridge check; 

cmp. 1 #diagmag ic, cartbase 
beq sei2 


check cartridge magic 

(it's there — leave vectors alone) 


* setup 62 vectors: 


1 ea 
add. 1 
1 ea 

move, w 
se i 1 : move. 1 

add. 1 
d bra 
move. 1 


_term ( p c ) , a 1 
#*02000000, al 
8, aO 

#64-2-1, dO 
a 1 , ( aO ) + 
#*01000000, al 
dO, sei 1 
a3, *14 


al -> "terminate process" handler 
al += vector number (high byte) 
aO -> interrupt RAM 
dO = count 
write vector 

bump vector number in bits 24. . 31 
(loop to write more vectors) 
d i vi d e— b y — z er o vector -> rte 


* install DS 

se i2: move. 1 

move. 1 
move. 1 
move. 1 
move. 1 
move. 1 


interrupt vectors 
#vbl, *70(a5) 

#hbl, *68 (a5) 
a3, *88(a5) 
#trpl3h, *b4(a5) 
#trpl4h, *b8(a5) 
#linel010, *28(a5) 


i vblank handler 
i h b lank h and 1 er 
; (empty) trap#2 handler 
i trap #13 handler 
1 trap #14 handler 
i line 1010 handler 


S3i 
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move. 1 a4j etv_timer (a5) > default timer-tick vector -> rts 

move. 1 #_critich. etv_critic (a5) i default critical error handler 
move. 1 a4t etv term(a5) i default terminate vector -> rts 


# 

■» 

* 

■»- 


Setup the vblank deferred vector list. 
(This data structure is uglyj 
but ufe seem to be stuck uith it). 


avb 1 : 


lea _vb 1_1 ist (a5) / aO 

move. 1 aO< _vb 1 queue < a5 ) 

move, (li #dnvbls-ljdO 
clr. 1 (aO) + 

d bra dOj avb 1 


aO — > default list of vbl Iocs 
install ptr to them 
clear vbl vectors 

one at a time 


*+ 

* "The other half" of the BIOS handles character I/Oi 
call its ini t ia 1 i zat i on hook. 

* (It can "never fail". This will get interesting 

* if u»e ever do a detachable keyboard . . . . ) 

* 

*- 

bsr initmfp 


* Fire up XX2 cartridges 
*- 

moveq #2. dO 
bsr cartscan 


bit# = 2 

execute cartridge aps 


Initialize screen resolutioni 

* kludge color lookup RAM for medium— rez (if we're in it). 


* 



#- 

clr. 1 

a5 


b sr 

wvb 1 


bsr 

wvb 1 


move, b 

#2, dO 


btst. b 

#7< gpip 


beq 

setvb 1 


move, b 

defshiftmd (a5)» dO 


cmp. b 

#2. dO 


bit 

setvb 1 


c Ir . b 

dO 

setvb 1 ; 

move, b 

dO) sshiftmd(a5) 


move, b 

dO< shiftmd 

t ■ n 


* if in medium rez» hack color3 

cmp. b #i> dO 


quick zero page (again) 
flush pending VBI 
wait for next VBI 
assume high— rez monitor 
test "HighRez" panic input 
(set high-resolution) 
get default color mode 
if(mode >= 2) mode = 0 


i set rez shadow 
i set rez hardware register 

;= colorlS (for GSX ) 

1 in medium rez? 


$ 3 ^ 
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bne 

setvb2 

i i n o / 5 0 don't 

fiddle) 

move, u; 

c o 1 or 0+^ i s j col orO+6 

; copy color 15 

to color 3 

jsr 

esc_init 

i clear screen. 

initialize cursor- 

move. 1 

#re5fith. swv_vec(a5) 

; RESET system 

on monitor change 

move, uj 

#1 ( vb 1 sem 

; ena tie vb Ian k 

processing 


*+ 

* C13 Fire up 7.V.0 cartridges; 

* C23 Enable intejTrupt s; 

•» C3D Fire up ■/'/.! cartridges 
«• 

*- 


c Ir . w 

dO 

; magic bit# = 0 


bsr 

car tscan 

; execute cartridge 

ap s 

move, lu 

#*2300, sr 

; go to IPL 3 


moveq^ 

#1, dO 

; magic bit# = 1 


bsr 

cartscan 

i execute cartridge 

ap s 


*-f 









Load shell 

(if cmdload is 

nonzero ) 



* 

» 

or 

execute 

GEM in ROM 




*- 


b sr 


_osi 


i 

initialize DOS 



b sr 


_d s k b o o t 


i 

attempt to boot from disk 



tst. UJ 

_cmd load 


) 

load shell from disk'? 



beq 


st_l 


) 

(no — execute GEM in ROM) 



bsr 


esce 


i 

turn on cursor 



bsr 


_auto 


i 

do auto-exec 



pea 


nul lenv( pc ) 


i 

null enviroment string 



pea 


nul lenv( pc ) 


9 

null argument string 



pea 


cmdname (pc) 


9 

push shell filename 



c Ir . ui 


-( sp > 


9 

load-and-go flavor of exec 



bra 


st_x 


9 

exec shell ("never return") 

*— 

— 

bring up 

GEM: 




st 

_1: 

bsr 


_auto 


i 

do auto-exec 

*- 

— 

kludge up 

an enviroment 

string; 





lea 


or i g_env (pc). 

aO 

f 

aO -> original enviroment string 



move. 


#the_env, al 


9 

al -> place to put it 

st 

_2: 

cmp. b 


#'#', (aO) 


i 

look for drive# character 



bne 


st_3 


i 

(not it) 



move. 

1 

a 1 , a 2 


9 

a2 -> place to put drive# 

st 

_3; 

move. 

b 

(aO)+, (al ) + 


i 

copy a byte 



bpl 


st_2 


i 

loop while not end-of-string 



move. 

b 

b ootd ev, dO 


9 

compute drive#, and shove it 



add . b 


#'A', dO 


i 

into the env string at the 



move. 

b 

dO, (a2) 


} 

appropriate spot 
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* 

kludge up an 

enviroment string; 




p ea 

the_env 

/ 

push address of enviroment string 


p ea 

null env 

> 

no arguments 

-«• 

ifeq systype- 

-ram 



* 

pea 

gemname ( pc ) 

i 

exec GEM. PRG 

* 

c Ir . w 

- ( sp ) 

i 

load-and-go 

* 

endc 



* 

ifeq ramloaded 




pea 

null env(pc ) 

J 

null shell name (in ROM, after all 


move. u> 

#5, -(sp) 

i 

createPSP flavor of exec 


move. (I) 

#*4bi -(sp ) 

i 

exec function# 


trap 

#1 

i 

get pointer to PSP 


add. u 

#14i sp 

i 

(clean up cruft) 


move. 1 

dOi aO 

i 

aO -> PSP 


move. 1 

exec_osj S(aO) 

i 

stuff saddr of GEM in PSP 


pea 

the_env 

i 

our enviroment string 


move. 1 

aO/ -( sp ) 

i 

push addr of PSP 


pea 

nul lenv( pc ) 

i 

null filename 


move, w 

#4, -(sp ) 

} 

just-go 

* 

endc 



st 

_x : move, ui 

#*4b« -(sp ) 

i 

function = exec 


trap 

#1 

f 

do it 


add. ui 

#14, sp 


cleanup stack 

*+ 




« 

When startup 

fails (or if the exec returns. 

« 

which "cannot 

happen") fake a system 

reset; 

*- 

jmp 

reseth 

i 

back to the beginning... 


*+ 

* Default enviroment string 

* Cannot be more than 20 chars long without modifying 

* the declaration for the_env» 

* Any char >= *80 terminates the string (and is included in it) 

* The last character is replaced by the boot drive's name (A# 

#— 


orig_env: dc. b 

dc. b 
dc. b 
dc. b 


'■PATH='S O 
"#; \", 0 
0 

*ff 


f default pathname 
; is the boot device 
i terminate env string 
i end of env string (for our 


. . . ) 


copy ) 


cmdname; dc. b 
gemname: dc. b 

null env: dc. b 
even 


"COMMAND. PRO", 0 
"GEM. PRG" 

0, O 


shell name 
desktop name 

null string (and enviroment) 


*+ 


?57 
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* _dskboot - boot (or return diagnostics) 

* Passed: nothing 

* Returns: DO. W = error number (if nonzero) 

•«“ 

dskboot: 



moveq 
b sr 

#3, dO 
carts can 

i y.V.3 ap cart 


move. 1 
jsr 

hdv_booti aO 
(aO) 

i go through boot vector 

i f eq 

systy pe- 

rom 



tst. u> 

dO 

i any errors? 


bne 

dskbl 

i (yes — punt) 


lea 

_d iskbuf j aO 

; aO — > disk buffer 

endc 

Jsr 

(aO) 

i execute boot sector (it might return) 

dskbl: 

r ts 


; return status 


»+ 




* cartscan - scan cartridge memory for 

runable applications 

* Passed; 

dO = bit# to test in application's initial i zation vector 

* Returns: 

after all applications 

have been examined 

* Uses; 

M. 


aO/ dO 


cartscan; 




lea 

cartbase/ aO 

; aO -> cartridge memory 


cmp. 1 

#apmag i c > (aO)-f 

i correct magic number? 


bne 

ca_r 

; (no .1 so return) 

ca_l ; 

btst. b 

dOj ca_f lags (aO) 

i test bit in MSB of INIT address 


beq 

ca_2 

i (not set, so don't execute) 


movem. 1 

d0-d7/a0-a6i -( sp ) 

i save everything 


move. 1 

ca_i n it(aG)i aO 

> aO -> initialization address 


jsr 

(aO) 

; call cartridge application 


movem. 1 

(sp)+j dO— d7/a0-a6 

; restore everything 

ca_2: 

tst. 1 

(aO) 

i test link address 


move. 1 

(aO)i aO 

i aO -> next header (or NULL) 


bne 

ca_l 

i loop on next header 

ca_r : 

r ts 


^rts: 

r ts 







memchk - check 

pattern written to memory 

* 

Passed : 

d 1 . 1 = offset 

* 


aO = base of pattern ('^IfS bytes long) 



a5 -> return address 

# 

Returns : 

EQ: the pattern matched 

* 

* 


NE: the pattern didn't match 

* 

Uses : 

dO. u, al 
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* 

•«— 

memc h k : 

add. 1 
c Ir . uj 
lea 

memc h k 1 : cmp . uj 

bne 
ad d . UJ 
cmp. 1 
bne 

memchkr: jmp 


Cold start 


dl. aO 
dO 

*lf8(a0), al 
(aO)+> dO 
memc h kr 
#*fa54, dO 
aOi a 1 
memc h k 1 
(a5) 


Ca 1 1 e d-b y : 


memory-sizing routine. 


aO -> memory to check 
zap pattern seed 
al — > ending address 
mate h? 

(no — return NE ) 
yes — bump pattern 
matched entire pattern? 
( no ) 

"return" to caller 


ifeq systype-rom 
*+ 

* sysfail — u»e drop dead gracefully (sort of) 

* 

* If on a high-rez system^ set video configuration to high-rezj 
« Put up some diagnostic infoi 

* Display some kind of icon in the screen's center; 

* Then loop forever, incrementing a bit of screen memory .... 

* 

*- 

sysfail ; 



btst. b 

#7> gp ip 

test "HighRez" panic input 


bne 

sysf 1 

( keep low rez > 


move, b 

#♦02, shiftmd 

set high rez, cross our fingers 

sy sf4: 

1 ea 

sy sf 1 ( pc ) , a6 

load return address 


1 ea 

fai lure ( pc > , al 

al -> icon form 


bra 

sysf draw 

draw icon 

sy sf 1 : 

moveq 

#0. dO 

delay a while 

sy s f 5; 

dbra 

dO, sysf5 



1 ea 

sysf2(pc ) , a6 

load return address 


1 ea 

fai lurel ( pc ) , al 

al -> icon form 


bra 

sysf draw 

draw it 

sy sf2; 

moveq 

#0, dO 

delay a while 

sy 5 f 3: 

dbra 

dO, sysf3 



bra 

sy sf 4 

back to the beginning .... 

sy sf draui: 

clr. 1 

aO 

draw in middle of screen 


moveq 

#0, d7 

count = 1 


lea 

fail ure ( pc ) , al 

al ~> icon form 


bra 

_draw_icon 

draw the icon 

*+ 

* "Sad 

" icon 

form 



* ... or something like that . . . . 

* 

*— 

failure; 
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dc.iD 7.1111111111111111 
dc.uj 7.1000000000000001 
dcuj 7.1000001111000001 
dc.u) 7.1000001111000001 
dc.uj 7.1000001111000001 
dc.u) 7.1000001111000001 
dc.u 71000001111000001 
dc.u 7.1000001111000001 

dc.u 7.1000001111000001 

dc.u 7.1000001111000001 
dc.u 7.1000001111000001 
dc.u 7. 1 00000000000000 1 
dc.u 7.1000001111000001 
dc.u 7.1000001111000001 
dc. u 7.1000000000000001 
dc.u 7.1111111111111111 


* alternate 

failurel; 

dc.u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 
dc.u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 
dc. u 

endc 


form of the thing: 

7.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
7 1 00000000000000 1 
7. 1 00000000000000 1 
7. 1 00000000000000 1 
7. 1 00000000000000 1 
7. 1 00000000000000 1 
7 1 00000000000000 1 
7 1 00000000000000 1 
7 1 00000000000000 1 
7. 1 00000000000000 1 
7. 1 00000000000000 1 
7 1 00000000000000 1 
7. 1 00000000000000 1 
7 1 00000000000000 1 
7 1 00000000000000 1 
71111111111111111 


*+ 


» val_memval 

- 

test 

memory conf igurati on 

va 1 i da t i on 

* Passed; 


a6 - 

■> return addressd 


* Returns: 


a5 - 

•> 0 (quick zeropage) 




EQ; 

memory setup OK 


* 


NE: 

memory never configured succesfully 






val_memval: 





c Ir . 

1 

a5 


a5 -> quick zeropage 

cmp . 

1 

#memmag i C/ memval id ( a5) ; 

check first magic num 

bne 


val 

mr ' 

(mismatched — return 

cmp . 

1 

#memmag2^ memva 12( a5 ) ; 

check once more (for 

val_mr: jmp 


(a6) 

J 

return EQ/NE 




*+ 

* Four 


longuords of zero 
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■a— 

■I eros : d c . 1 


^tOOOOOOOO, $00000000/ $00000000. $00000000 





_drauj 

_icon — 

Drain an icon 


Passed . 

a6 -> return address 




al -> source form 




d5 = #icons to drain - 




aO = destination: 

* 



aO == 0: 




aO < $8000; 

-M- 



aO >= $8000: 

* 




-M- 

Uses 


dO- d7/a0-a3/a5 

* 




-ft- 




_drain_icon: 




move, b 

sh i f tmd / d4 



and. in 

#$0003, d4 



add. in 

d4. d4 



cmp. 1 

#$8000, aO 



bh i 

d i na 



cmp. 1 

#0, aO 



bne 

di_nal 



move, in 

i cn_inde X (pc. d4. in) , aO 

d i 

_nal : 

clr. 1 

dO 



move, b 

dbaseh, dO 



Isl. in 

#8, dO 



move, b 

dbasel, dO 



Isl. 1 

#8, dO 



add. 1 

dO, aO 

d i 

na : 

moveq 

#15. d7 

d i 

1: 

move, in 

icn_repeat(pc. d4. in). d6 

d i 

_2: 

move, in 

d5, d3 



move. 1 

aO. a2 



add. in 

icn width (pc. d4. in) , a2 

d i 

_3: 

move, b 

(al).dO 



1 ea 

di_rtl(pc),a5 



bra 

dup8 

d i 

_rt 1 ; 

move, in 

d2. dl 



move, b 

1 (al ). dO 



lea 

di_rt2(pc), a5 



bra 

dup8 

d 

_rt2: 

move, in 

(al ). dO 



jmp 

di_jmp (pc, d4. w) 

di 

_jmp: 

bra. s 

d i_l ow 



bra. s 

d i_med 



bra. s 

d i_h i 

d i 

loin: 

move, in 

dO, (aO> + 


draui in middle of screen 
drauj at offset on screen 
dram in memory 


; d4 = rez index 

i if (aO I>= 0x8000) just_use_it/ 

/• if (aO == 0) aO = icn_index Cd4] 

/ get offset of middle of screen 
/ dO = base of screen 


i aO += base_of _screeni 

/ d7 = scanline count 
; d6 = #scanlines to repeat 
i d3 = count of # to drau 
i a2 -> next scanline 

; get uiord from source form 
i (a5->return address) 
i expand MSW of icon 

f expand LSW of icon 
; (a5~>return address) 

/ get original icon word 
• jump to drain routine 


i store all four planes in lorez 
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move, w 

dO. <aO) + 


move, u) 

dO, (aO>+ 


move, w 

do, ( aO ) + 


bra. s 

d i_cn 

i (continue) 

d i_med: move, w 

dl, (aO)+ 

i store plane 0 

move, w 

dl. (aO) + 

. store plane 1 

move, w 

d2. <aO) + 

j store plane 0 

move. UJ 

d2. (aO) + 

; store plane 1 

bra. s 

d i_cn 

i (continue) 

d i_h i ; move, w 

dl. <aO) + 

j store plane 0 

move. UJ 

d2. (aO> + 

j store plane 1 

d i_cn: d bra 

d3. di 3 

J loop to do more on this 

move. 1 

a2, aO 

J aO -> next sc an line 

dbra 

d6, di_2 

J dup scanlines 

addq 

#2. al 

; bump source form 

dbra 

d7, di 1 

J do another scanline 

jmp 

<a6) 

i return 

*+ 

* dup8 - expand 

dO. b into d2 

. UJ 

* Passed: 

dO. b = source bits 

« 

a5 -> return 

address 

* Returns: 

Jf, 

d2. UJ s= dO. b. 

with every bit doubled 

* Uses: 

M. 

a3 (to save 

d3) 

*- 

dup8: move. 1 

d3. a3 

J save d3 

moveq 

#0. d2 

J d2 is pristine 

moveq 

#7, d3 

J d3 = bit count 

d8_l : rox 1. b 

#1. dO 

J get MSB into carry + X 

move. UJ 

sr . - ( sp ) 

; (save X) 

r o x 1 . UJ 

#1. d2 

i then rotate X in once 

move. UJ 

( sp )+, sr 

J (restore X) 

r o X 1 . UJ 

#1. d2 

J then rotate X in twice 

dbra 

d3. dS 1 

; (loop for more bits) 

move. 1 

a3, d3 

J restore d3 

jmp 

(a5) 

J return 


*+ 

* Screen— rez dependent parameters: 

■» a index to center of screen 
with of screen in bytes 
number of scanlines to repeat 


o 

o 


* 

* 

*- 

i cn_index : 
i cn_wi d th : 
i cn_r ep eat : 


dc. w 100-IH60+72, 100*160+72, 200*80+36 

dc. lu 160. 160. 80 

dc. uj 0, O, 1 
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*+ 

* Default palette assignments. 

* Sort of corresponding to the GSX spec. 


colors: 

dc. w 

♦777 

0 

white 


dc. w 

♦700 

i 

red 


dc. w 

♦070 

2 

green 


dc. w 

♦770 

3 

yellow 


dc. w 

♦007 

4 

blue 


dc. w 

♦707 

5 

magenta 


dc. w 

♦077 

6 

cyan 


dc. w 

♦ 555 

7 

"low white" 


dc. w 

♦333 

8 

grey 


dc. w 

♦733 

9 

light red 


dc. w 

♦373 

10 

light green 


dc. w 

♦773 

11 

light yellow 


dc. w 

♦337 

12 

light blue 


dc. w 

♦737 

13 

light magenta 


dc. w 

♦377 

14 

light cyan 


dc. w 

♦000 

15 

black 

*+• 

* hbl - 

force 

caller to IPL 




* Oh-uiell: "Yeahj it sucks* but it works" (--It) 


* 

♦ Note: 

« 

* 

» 

*- 

hb 1 : move, w 

move, w 
and. w 
bne 
or. w 

hb l_r : move, w 

rte 


Hacks caller's IPL to 3 (if it was 0). This is 
a kludge against fascist programs and certain 
debuggers that insist on starting processes up 
at IPL 0. 


dO* - ( sp ) » 

2(sp).d0 

#♦0700, dO i 

hbl_r i 

#♦0300, 2 (sp) ; 

(sp )+, dO i 


save dO 

get pushed SR 

strip crufty bits 

not IPL 0, so punt 

force caller to IPL 3 

restore dO, back to victim 


*+ 

* vbl - vertical blank interrupt handler 


* 

*- 
vbl : 

addq. 1 #l,_frclock 
subq. w #1, vb 1 sem 
bmi vblret 

movem. 1 dO— d7/a0-a6, -( sp ) 
addq. 1 #l,_vbclock 
c Ir. 1 a5 


i bump frame clock 
i P(vblsem) — vblank locked? 


i save registers 
i bump unb loc ked-f rame clock 
; a5 -> zero page 




Video monitor fail-safe anti-burnout check: 
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move, b 

sh i f tmd 1 dO 


and , b 

#3, dO 


cmp . b 

#2i do 


bge 

swmoni 

«■ low rez: 

switch to high if 


b tst. b 

#7i g p i p 


bne 

swmon3 


move, b 

#2, dO 


bra 

swmon2 

* high rez; 

switch to low (hi 

swmon 1 : 

b tst. b 

#7i gp i p 


beq 

swmon3 


move, b 

def sh i f tmd ( a5 > i 


cmp. b 

#2. dO 


bit 

swmon2 


c Ir. b 

dO 

swmon2: 

move, b 

dOi ssh i f tmd ( a5 ) 


move, b 

dOi sh i f tmd 


move. 1 

swv_vec ( a5) 1 aO 


jsr 

(aO) 

swmon3: 




bsr 

blink 

♦ reload color palettes 


c Ir. 1 

a5 


tst. 1 

colorptr (a5) 


beq 

vbll 


move. 1 

colorptr (a5)i aO 


lea 

colorOi al 


move, w 

#16-1, dO 

vbl2: 

move, w 

(aO)+, (al ) + 


dbra 

dO, vbl2 


c Ir. 1 

colorptr (a5) 


vbll: 


reload display base register 


get current rez 
strip bucky bits 
low or high rez? 

< h i g h ) 

== 0 

get "High rez" input 
no change: punt 

trans to high rez 


i get "High rez" input 
i no change (still highrez) 
i get preferred rez 
i if high-rez, then force low rez 
> ( 1 ow or med rez ) 

i set shadow & hardware shift-mode 
i go through "change rez" panic vector 


; blink cursor 


a5 -> zero page 
if (colorptr != NULL). . . . 
(its NULLi so don't reload) 
aO -> user's color base 
ai -> hardware palette base 
dO = count 
load a palette 
. . . and repeat 
zap colorptr 


if(5creenpt == NULL) don't; 


tst. 1 screenpt(a5) 

beq vb 1 5 

move. 1 scr eenp t ( a5 5 ^ _v_bas_ad ( a 5 ) 

move. 1 _v_bas_a d ( a5 ) / dO 

1 sr #8 j dO i str i p 

move, b dO<dbasel ; load 

Isr #8, dO 

move, b dO< dbaseh ; load "high" pointer 


; set OS variable 
i dO -> screen bottom 
lower 8 bits 
low" pointer 


•» 

vb 15: 


Floppy drive— select timeout: 
bsr _flopvbl 

Call deferred interrupt vectors: 


vbllO: 


move, w 
beq 

sub q. 1 
move. 1 
move, 1 


nvb 1 Si d7 
vbll2 
#li d7 

_vb 1 queue; aO 
( aO) + i a 1 


; (no args) 


d7 = # of deferred vblank vectors 

(punt if no vectors) 

turn into DBRA count 

aO -> vectors 

al -> deferred vector 
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cmp. 1 

#0, al 


beq 

vblll 


movem. 1 

d7/a0» - ( sp ) 


jsr 

(al ) 


movem. 1 

( sp )+< d7/aC 

vbl 11 

dbra 

d7, vbllO 

* 

monitor screen dump flag 

vbll2 

c Ir . 1 

a5 


tst. w 

_prtcnt (a5) 


bne 

no_pr int 


; if(al == NULL) continue; 

; save registers 
; call routine 
; restore registers 
; loop for more vectors 

i quick zeropage 
i printscreen active? 
j no 


«•+ 

* printScreen 

* We re-enable vblanks here» until the printScreen finishes. 

* 

■»— 

bsr _scrdmp ; dump screen 

move, ui #-l» _prtcnt ; unlock printScreen 

no_print: 


* restore registers 8< return (and a handy RTE) 

movem. 1 ( sp )+i d0-d7/a0-a6 

vblret: addq. ui #livblsem ; V(vblsem) Crelease vblank] 

rte: rte 


*+ 

* uivbl - wait for next vblank 

* Passed: nothing 

* Returns: at beginning of next vblank 

* Uses: DO 

*— 

uivb 1 ; 



move. w 

sr» -(sp ) 


and. w 

#*f f ff-*700, sr 


move. 1 

_f rc loc k . dO 

wvb 1 1 : 

cmp. 1 

_frc loc k» dO 


beq 

wvb 1 1 


move, w 
rts 

(sp )+» sr 


save psu 

enable vbl interrupts 

dO = frame clock 

wait for clock to change 

then restore psw & return 


#+ 

* _critic - critical error handler binding for C 

* Falls-into: _critich 

* (screwy way to save two bytes. . . ) 

* 

*- 

_c r i t i c : 

move. 1 etv_critici -(sp ) » jump through critic vector 
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^• 4 * 

* _critich — default critical error handler 

* Loads ~1 into DO and returns. 

_c r i t i c h , 

moves #-i»dO aePauit return value = ERROR 

rts return to trap invoker 


»+ 

•» 

* 

* 

* 

* 

* 

* 

* 

« 

« 

« 

« 

* 

« 

* 

* 

* 

* 

« 

* 

« 

* 

* 

» 


trpl3h - GEMDOS BIOS trap handier (trap 13) 
trplAh - Atari BIOS extensions (trap 14> 
traph - trap handler 


On the stack: 

From super- From user 

visor mode: mode: 


N(sp) args 
6(sp) func# 
2 ( sp ) ret 
(sp) SR 


N(usp) args 
6(usp) func# 
2(ssp) ret 
(ssp) SR 


Returns: 

Uses: 

Keeps: 

Notes: 


anything in DO 

d0-d2/a0-a2 
C registers 

BIOS traps are re-entrant to 'nlevels' (declared near the 
beginning of this file). Attempts to recurse more than 
'nlevels' will probably result in a crash. 

BIOS calls may be made from user mode. (This differs from 
the current GEMDOS spec^ which states that BIOS traps are 
available from supervisor mode only). 


*- 

trp 14h : 

1 ea 

trp 14tab (pc)* aO 


bra. s 

traph 

trpl3h: 

1 ea 

trp 13tab ( pc ) * aO 


aO -> trapl4 jump table 
aO -> trap 13 jump table 


* save registers* twiddle stack; 
traph: move. 1 savptrial 

move, w ( sp )+i dO 
move, w dO/ - ( a 1 ) 
move. 1 (sp)+j-(al) 

movem. 1 d3-d7/a3-a7* -(al ) 
move. 1 al*savptr 


al — > register save area 

pop SR and save it 

(need in DO for user— mode test) 

save return addr 

save C registers + super stack 

update save-area pointer 


» make 


b_5upr : 


sure we have the right stack* 
btst #13* dO 

bne b_supr 

move. 1 usp* a7 
move, w ( sp ) +* dO 
cmp. w (aO)+* dO 


call function; 

i was in user mode? 
i (was in super: use super stack) 

i use user stack 
i get function# 
i out of range? 
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bge 

b exit 

Isl. w 

#2. dO 

move. 1 

( aO. dO. w ) . dO 

move. 1 

dO. aO 

bpl 


move. 1 

( aO ) . aO 

c Ir . 1 

a5 

jsr 

(aO) 


* restore registers, cleanup stack and 
b_exit: move. 1 savptr. al 

movem. 1 (al )+. d3-d7/a3-a7 
move. 1 (al)+.-(sp) 

move, u) (al)+.-(sp) 
move. 1 al. savptr 
r te 


i ( yes. so punt ) 

; turn dO into longujord index 
i get pointer to function handler 
i (quick and dirty test--f or-negative ) 
i points to code 
; indirect through RAM. . . 
j a5 -> zero page 
i call BIOS function 

return : 

. al -> register save area 
i restore C registers + super stack 
i push return address 
i push old SR 
i update save-pointer 
; return to caller 


* jump table for GEMDOS functions; 

trp 13tab ; 


dc . w 

12 

dc. 1 

get mpb 

dc. 1 

bconstat 

dc. 1 

bconin 

dc. 1 

bconout 

dc. 1 

h d v__rw+*80000000 

dc. 1 

_setexc 

dc. 1 

tickcal 

dc. 1 

hdv_bpb +*80000000 

dc. 1 

bcostat 

dc. 1 

h d v_me d i a c h +*80000000 

dc. 1 

_drvmap 

dc. 1 

shift 


number of entries in jump table 
0; get memory parameter block 
1; console status (input) 

2; console input 
3; console output 
4; Cindirectl disk read/write 
5: set exception vector 

6; return tick calibration 
7; Cindirectl get BPB 
8; console status (output) 

9; [indirect! media change inquiry 
10: get active-drive bit vector 

11; get/set keyboard shift bits 


jump table for Atari BIOS extensions; 


trp 14tab ; 


dc. w 

40 

dc. 1 

ini tmous 

dc. 1 

_rts 

dc. 1 

_phy sbase 

dc. 1 

_1 ogbase 

dc. 1 

getrez 

dc. 1 

_setscreen 

dc. 1 

_setpa 1 et te 

dc. 1 

_setcolor 

dc. 1 

_f 1 o p r d 

dc. 1 

_f lopwr 

dc. 1 

_f lopfmt 

dc. 1 

getdsb 

dc. 1 

mid iws 

dc. 1 

mf p int 


number of entry points 
O; initialize mouse 
1 : (reserved ) 

2; get physical screen base 
3: get logical screen base 

4: get screen resolution 

5: set video parameters 

6; set palette 
7: set single color 

8; read floppy sector(s) 

9: write floppy sector 
10; format floppy track 
11; get device status block ptr 

i 12; write string to MIDI port 
i 13: initialize MFP interrupt 
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dc. 1 iorec j 14 

dc.l rsconf ;15: 

dc. 1 keytrans ; 16; 

dc. 1 _rand ; 17 

dc. 1 _proto_bt i 18 

dc. 1 _flopver < 19 

dc.l _d ump i t '> 20 

dc. 1 _cur5Conf i 21 

dc. 1 settime i 22 

dc. 1 gettime ; 23 

dc. 1 bioskeys i 24 

dc.l ikbdtDS > 25 

dc.l j d i s i n t ; 26 

dc.l jenab int > 27 

dc.l g iaccess > 28 

dc.l offgibit »29 

dc. 1 ongibit < 30 

dc. 1 xbtimer > 31 

dc. 1 dosound < 32 

dc.l setprt ;33 

dc.l ikbdvecs i34 

dc. 1 kbrate < 35 

dc.l _prtblk j36 

dc.l ufvb 1 i 37 

dc. 1 supexec > 38 

dc. 1 puntaes ; 39 


set I/O record 

configure RS-233 communications 
set keyboard translation tables 

generate 24~bit random number 
prototype boot sector 
floppy verify 

dump screen 

get/set cursor configuration 
set ikbd time 
get ikbd time 

reset keyboard to poujerup default 
write string to ikbd 

disable mfp intefrupt 

enable mfp interrupt 

read/write sound chip 

reset bit in soundchip register 

set bit in sound chip register 

initialize mfp timer 

startup sound daemon 

get/set printer configuration 

return ptr to base of kbd vars 

get/set keyboard repeat rate 

_prtblk primitive 

wait for next vblank 

execute in super mode 

throw away AES 


*+ 

* supexec - execute some code in supervisor mode 

* 

*- 

supexec ; 

move. 1 4<sp)<a0 » aO -> code 

jrop (aO) i execute it 


*+ 

* Character device I/O 

•» 

* No check is made for “bogus" device numbers. A wierd device 

* number will result in a crash. 

* 

*- 

bconstat: lea 

bra. 5 

bconin: lea 

bra. s 

bcostat: lea 

bra. 5 


tconstat ( pc ) I aO 
c h sw 


; aO — > stat tab le 


tc onin ( p c ) j aO 
c h sw 


; aO -> input table 


tc ostat (pc)/ aO 
chsw 


; aO -> ostat table 
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b c onout : 

1 ea 

tconout(pc),aO 

chsw; 

move, w 

4(sp ). do 


Isl. w 

#2. dO 


move. 1 

( aO. dO. w ) j aO 


jmp 

(aO) 


i aO ~> output table 
i get device number 
; turn into longtuord index 
i get address of handler 
i jump to it 


*+ 

* Jump tables for 

* 0 - 1st: (printer) 

* 1 - aux: <rs232) 

* 2 - con: (screen) 

3 - Atari midi 

» 4 - Atari keyboard (output only) 

* 5 ~ raw console output (bypass vt52 pressure cooker) 
» 

* No range checking is performed. If a bogus device number 

* is passed to the BIOS' character I/O handlerj the system 

* will crash or become funky duex. 

* 


■«— 

tconstat: 
tconin: 
tc ostat : 
tc onout: 


dc. 1 _rtsi auxistatj constati midstat> _rts< _rts 
dc. 1 _lstin. auxinj conin< midin» _rts. _rts 

dc. 1 _lstostatj_auxostat» conoutst> ikbdost> midiost / _rts 
dc. 1 _lstoutf auxouti conout< midiwc. ikbdwci asc out 


*+ 

* _drvmap - return "active drive" bit vector 

* Passed; nothing 

* Returns; DO. L = a bit vector of live (rwabs'able) block devices 

* 

*- 

_drvmap 

move. 1 _drvb its (a5) » dO 
r ts 


*+ 

» 

* 

-M- 

* 

* 

«• 

«• 

* 


_shift - 
Synopsis: 


Returns: 
Note : 


get/set keyboard shift state 
LONG _shift(bits) 

WORD bits 

DO. B = shift/alt/ctl/shift ' bits 

Since the shift bits are changed at interrupt 
level, any set from a get of the shift state 
must be done as a critical section. 


*- 

_s h i f t : 

moveq #0. dO 

move, b kbshift(a5)i dO 

move, w 4( sp ) . d 1 

bmi shifr 

move, b d 1. kbsh i f t (a5 ) 
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sh i f r : r ts 


* 4 - 

* 

* 

-H- 

ft 

# 

■B- 

■» 


_ 5 et_mpb - 
Synopsis: 


Returns : 


return initial memory parameter block 
_g et_mp b < mp b ) 

MPB *mpbi 

The properly initialized MPB, 

The MPB points to an MD somewhere in BSS, 
be in RAM since DOS will modify it. 


The MD /must/ 


_get_mp b : 

move. 1 4 ( sp ) j aO 

1 ea th emd ( a5 ) / a 1 

— initialize MPB: 

move. 1 al/ (aO) 
clr. 1 4(a0) 

move. 1 ali B(aO) 

* initialize MD: 

clr. 1 (al ) 

move. 1 _memfaot (a5) , 4(al ) 
move. 1 _memtop <a5) / dO 
sub. 1 _membot (a5 ) I dO 
move. 1 dOj 8<al ) 
clr. 1 *c (al ) 
r ts 


i aO -> MPB 
i al -> MD 


j mp_mfl = Seth emd; 
i mp_mal = NULL; 

; mp_r over = Seth emd; 

; m_link = NULL; 

; m_start = _membot; 

; m_length = _memtop — _membot; 

; m own = NULL; 


set exception vector 

setexc (vecno. addr) 

If 'addr' < 0. the vector is not set. 

Extended vectors (^100 through $107) are located in the 
first eight longwords of BSS- at $400. This is for 
convienience — they could really be located anywhere. 

DO. L = original vector value 


*+ 

* _setexc - 

* Synopsis; 

* 

* 

■» 

■» 

* 

* Returns; 

* 

#- 

sete X c ; 


move, w 

4 ( sp ) j dO 

1 s 1 . w 

#2- dO 

clr. 1 

aO 

lea 

( aO- dO. w ) - aO 

move. 1 

(aO), dO 

move. 1 

6(sp )- dl 

bmi 

se te X 1 

move. 1 
r ts 

dl- (aO) 


dO = vector# 

turn into longword index 

aO — > vector 

dO = current vector address 
dl = wha t_to_c hang e_i t_to 
punt if (dl < 0) 
set vector address 


s e t e X 1 ; 
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tickcal - return system timer calibration value (in ms) 


* 

■«— 

__t i c k c a 1 : 

c Ir. 1 

dO 

i 

move, w 

_timr_ms (ab ) j dO 

i 

rts 

*+ 

* _physbase - 

get physical display 

base 

#— 

_phy sbase: 

moveq 

#0, dO 

i 

move, b 

dbaseht dO 

i 

Isl. w 

#8i dO 


move, b 

dbaseli dO 

i 

Isl. 1 

#8, do 


rts 


i 





* _logbase - get logical display base 
» 

*- 

_logbase: 

move. 1 _v__bas_ad (a5) . dO 
rts 


cast to unsigned longword 
get calibration 


cleanup pointer— to— be 
load and shift bits 16. . 23 

load and shift bits 8. . 15 

return pointer in dO 


i set software shadow 


*+ 

* _getrez - get 
■» 

*— 

q etrez : 

moveq 
move, b 
and. b 
rts 


current screen rez 


#0, dO 

shiftmd (a5)> dO 
#♦03 I dO 


> cleanup dirty bits 
i get screen rezolution 
; strip garbage bits 
; return rez 


«■+ 

* _setscreen — set screen location(s)i rez 

* _setscreen( logicalLoci physicalLoc* rez) 

* LONG logicalLoc. physicalLoci 

* WORD rez; 

■» 

*— 

_setscreen; 

* set logical location; 

tst. 1 4(sp) i ifdogloc < 0) then ignore it 

bmi f5a 

move. 1 4(sp ), _v_bas_ad (a5) ; set software pointer from logloc 




Ju 1 
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* 

set physi 

cal location; 



f5a: 

tst. 1 

8(sp) 


if(physloc < 0) then ignore it 


bmi 

f5b 




move, b 

9(sp ), dbaseh 

t 

set bits 16. . 23 of hardware pointer 


move, b 

$a(sp), dbasel 

/ 

set bits 8. . 15 of hardware pointer 

* 

change screen resolution (clears 

the 

screen, clobbers the cursor): 

f5b: 

tst. w 

$c ( sp ) 

/ 

if(rez < 0) then ignore it 


bmi 

f5r 




move, b 

$d ( sp ) , ssh if tmd (a5) 

/ 

set software shadow 


b sr 

wvb 1 

/ 

wait for start of vertical-b lank 


move. b 

ssh i f tmd ( a5 ) * sh i f tmd 

/ 

set hardware location 


c Ir ; w 

vb 1 sem ( a5 ) 

i 

disable vblank processing 


jsr 

esc_init 

i 

r e— in i t ia 1 i z e glass tty routines 


move, w 

#1* vb 1 sem 

i 

re-enable vblanks 

f 5r; 

rts 





#+ 

» _setpalette - set palette (on next vblank) 

* _setpa 1 1 ete (LONG palettePtr) 

* 

_setpalette; 

move. 1 4( sp ) I colorptr (a5) ; set softiuare pointer 

rts i (updated by vbl handler) 


»+ 

* _setcolor - set single color* return old color 

* _setcolor (WORD colorNum. WORD colorValue) 

« 


•»— 


setcolor : 

move, u 
add. uf 
and. w 
lea 

move. (J 
and. uf 
tst. U) 
bmi 

move, uj 
setci: rts 


4(sp), dl 
di. dl 
#»lf, dl 
CO lorO# aO 
(aO* d 1. ui) I dO 
#$0777, dO 
6( sp ) 

_5 e t c 1 

6 ( sp } , (aO, d 1 . u) } 


get color number 

turn into word index 

force color range (prevent buserr) 

aO -> base of palette memory 

return old color 

mask dirty bits 

if new color is <0, don't set it 
(punt) 

set new color 


»+ 

» puntaes - throw-away AES, restart the system 

* Passed; nothing 

* Uses: everything 

* Returns: if AES was already thrown away 

* 


*— 

puntaes. 

move. 1 os_mag i c ( p c ) , aO ; get pointer to magic 

cmp. 1 #$87654321* (aO) ; is the magic still there? 


353 
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bne 

paesl 

i no — just return 


cmp . 1 

phy stop, aO 

; is it in ROM? 


bge 

paesl 

i yes — ine can't do anything about it 


c Ir . 1 

<aO) 

; clobber AES! 


bra 

reseth 

i restart the system 

paesl ; 

rts 



*+ 




# _term 

— terminate current process 


♦ Called-by: 

Uncaught traps (bus errors, and so on) 

* Saves 


processor state (in a bailout area) 





_term: 

b sr 

savp_2 

i stack PC 


nop 


i (never executed) 

savp_2: 

move. 1 

(sp)+, proc_pc 

; save bogus PC + exception number 


movem. 1 

d0-d7/a0-a7, proc_regs 

i common registers 


move. 1 

usp, aO 

; save USP 


move. 1 

aO, pr oc usp 



move. Ill 

#15, dO 

i save 16 inords off top of 


1 ea 

proc_stk, aO 

i the stack (enough for 


move. 1 

sp, al 

; any possible 68000 exception) 

savp_I : 

move. Ill 

(al )+, (aO)+ 

; save a uiord 


dbra 

dO, savp 1 



move. 1 

#$12345678, proc.lives 

set magic number (procdump lives) 

» drain an appropriate number of 'shrooms on the screen: 


moveq 

#0, dl 



move, b 

proc_pc, d 1 



subq 

#l,dl i 2 for bus error, 3 for address, etc. 


bsr 

d o_shroom 



move. 1 

#savend, savptr 

clobber BIOS top level 


move. Ill 

#l,-(sp) 

"error" return condition 


clr. 1 

-( sp ) 

GEMDOS function #0 


trap 

#1 

"terminate process" 


bra 

reseth 

on return, reset system 

*+ 




* do_shroom - dram little mushroom clouds on the screen 

» Passed: 

dl.bi = #shrooms to draw 

(DBRA count) 

* Returns: 

some shrooms on display 


* Uses: 


d0-d7/a0-a2 



» 

* 

•»— 

do 


Discussion: The graphics ain't all that great. And this is silly. 


shroom: 

move, b 
and. Of 
add. Ill 


sh if tmdf d7 
#$0003, d7 
d7, d7 




i 67 — rez index 
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C 1 T' . 1 

dO 




move, b 

dbaseh 

dO 



1 s 1 . w 

#8, dO 




move, b 

dbasel 

dO 



Isl. 1 

#8, dO 




move. 1 

do. a 0 




ad d . UI 

mindex (pc. d7. w) . 

aO ; aO ~> base of mem to draw at 


1 ea 

mushroom < pc ) , a 1 

; al — > source form 


move, w 

#15, d6 


j d6 = scanline count 

dmO; 

move. UI 

dl, d2 


; d3 = # to draw on this line 


move. 1 

3 0 f 3 2 


i save ptr to beg of line 

dml ; 

move, w 

mcount(pc. d7. w). 

d5 ; d5 = #words to replicate 

dm2; 

move, w 

(al>, (aO)+ 

i draw a word 


dbra 

d5, dm2 


i (complete single shroom) 


dbra 

d2, dml 


! another, on the same line 


addq 

#2, al 


i next source word 


ad d . w 

mwi d th 

<pc. d7. w). 

a2 i next dest line 


move. 1 

a2i aO 




dbra 

d6, dmO 


i (loop for next line) 


rts 



i byebye 

mind e X : 


dc. w 

100*160, 

100*160, 200*80 

mcount: 


dc. w 

3, 1, 0 


muii d th : 


dc. w 

160, 160, 80 

* what it is 




mushroom; 





dc.w 7.0000011111000000 

dc.Ui 7.0001111111110000 

dc.w 7.0011101111111000 

dc.ui XOlllOlllllllOlOO 

dc.w 7.1011011111111010 

dc.uj 7.1011101111111010 

dc.w 7.1101111111110110 

dc.w 7.0110011011111100 

dc.w 7.0011001010001000 

dc. w 7.000000 1 0 1 0000000 

dc. w 7.0000010001000000 

d c . tu 7.00000 10001000000 

dc. u/ %00000 10 10 1000000 

d c . u) 7.00000 1 0 1 00 1 00000 

d c . u) 7.0000 1001001 00000 

dc. ui 7.0000 1001001 00000 

dc.ui 7.0001001010010000 


*+ 


* __fastcpy — 

"fast" 512-byte 

* Synopsis: 

f astcpy ( src, 

* 


# 

Used by _rwa 

* 

disk I/O on 




copy 
d est ) 

bs to fake disk DMA to odd 
odd addresses is very slow 


addresses. Therefore. 
Lose. lose. 
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#- 

_fastcpy : 




move. 1 

4< sp ) , aO 

i aO — > src 


move. 1 

8 ( sp ) < a 1 

i a 1 -> d e 5 1 


move, uj 

#63, dO 

i dO = move count (64-«-8 

= 512) 

fasti ; move, b 

( aO ) +, < a 1 ) + 

i copy 8 bytes at a time 


move, b 

(aO)+, (al ) + 

i tominimize loop 

overh ead 

move, b 

(aO)+, (al ) + 



move, b 

(a0)+, (al ) + 



move, b 

(aO)+, (al)+ 



move, b 

(aO)+, (al ) + 



move, b 

(aO)+, (al ) + 



move, b 

( aO ) +, ( a 1 ) + 



dbra 

rts 

dO, fasti 




*+ 

« Go through 
* 

_hinit: move. 

rts 


hard-disk initial i zation 


1 hdv_in i t. - ( sp ) 


vector 


autopath : 
autof i le: 

even 


dc. b '\AUTQ\' 

dc. b PRG', 0 

dc.w *1234, *5678, *9abc. tdefO 


*+ 



_auto 

- exec 

auto-startup files in 

the appropriate subdirectory 



_a u t o 1 

- exec 

(ufith filename args) 




Passed 


aO -> full filespec 

( pathname ) 





al -> filename part 

of filespec 





drvbits; bit vector 

of active drives 


-K- 



_bootdev; contains device to exec from 


* 

jt 

Returns : 

noth ing 



It 

* 

Note; 


If _drvb itsXX_bootdev is zero, _auto simply quits 

(since 

* 



the device isn't active....) 


* 

Uses: 


everyth ing 





. g 1 ob 1 

_auto 

i for debugging 


_auto : 

lea 

autopath(pc), aO 

i -> path 




lea 

autof i le(pc), al 

i — > filename 


_a u 1 0 1 : 

move. 1 

( sp ) +, autoret 

i return addr (used by execlr) 



c Ir . 1 

a5 

; quick z er opag e 




move. 1 

aO, pathname(a5) 

i setup filename/pathname 

ptrs 



move. 1 

al , f i lename (a5) 





move. 1 

_drvb i ts (a5) , dO 

i dO = active dev vector 




move, w 

bootdev, d 1 

i dl = dev# to exec from 
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btst 

dl,dO 

is the dev alive? 

b eq 

autoq 

(no — so punt) 

1 ea 

null env( p c ) i aO 

aO -> \0\0 

move. 1 

aO/ - ( sp ) 

null enviroment 

move. 1 

aOi - ( sp ) 

null command tail 

move. 1 

aO< - ( sp ) 

null shell name 

move, lu 

#5, -<sp ) 

Create-PSP subfunction 

move, uj 

#*4b, -<sp ) 

exec function# 

trap 

#1 

d 0 DOS ca 1 1 

add. UJ 

#16i sp 


move. 1 

dO> aO 

aO -> PSP 

move. 1 

autoi 8 ( aO ) 

initial PC -> autoexec 

move. 1 

a3i - ( sp ) 

null enviroment 

move. 1 

dO, -<sp) 

-> PSP 

move. 1 

a3j -( sp ) 

null shell name 

move. UJ 

#4. -(sp ) 

just-go 

move. UJ 

#*4b, -(sp ) 

function = exec 

trap 

#1 

do it 

add . UJ 

#16. sp 

cleanup stack & goodbye 

rts 




*+ 

* fauto - exec 'd by _auto to do autostartup 

# 


* Passed: 

pathname -> path 

part 

of 

f i lespec 

« 

*— 

f auto : 

filename -> file 

part 

of 

f i lespec 

c Ir. 1 

-( sp ) 


i 

get into super mode 

move. UJ 

#*20. -(sp ) 




trap 

#1 




addq 

#6. sp 


i 

c 1 eanup 

move. 1 

dO. a4 


i 

a4 -> saved super stack 

* free up some memory: 




move. 1 

4(a7). a5 



a5 -> base page 

1 ea 

*100( a5> . sp 



sp -> neuj. safer addr 

move. 1 

#*100. -(sp ) 



keep *100 (just the basepage) 

move. 1 

a5. - ( sp ) 



-> start of mem to keep 

c Ir . UJ 

- ( sp ) 



junk word 

move. UJ 

#*4a, -< sp ) 



setblock(... ) 

trap 

#1 




addq 

#6. sp 




tst. UJ 

dO 




bne 

au_dn 



punt on error 

move. UJ 

#*0007, -(sp) 



find r/o+hidden+sy stem files 

move. 1 

pathname, - ( sp ) 



-> filename (on input) 

move. UJ 

#*4e, -(sp ) 



searchFirst 




d7 = cleanup amount 
setup DTA <for search) 
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ffloveq 

#8, d7 

i d7 = cleanup amount 

au 1 : 

p ea 

autodma 

i setup DTA (for search) 


move, w 

#*la. -( sp ) 



trap 

#1 



addq 

#6< sp 



trap 

#1 

i search first/search next 


add. ID 

d7» sp 

i cleanup stack 


tst. ID 

dO 

; test for match 


bne 

au_dn 

i (no match — quit) 

* 

c onstruc t 

filename from path 

and the name uie just found: 


move. 1 

pathname^ aO 

i copy pathname 


move. 1 

f i lename< a2 

i a2 -> end+1 of pathname 


lea 

autonamei al 


au3; 

move, b 

(aO)+, (al)+ 

i copy path part of name 


cmp. 1 

aOf a2 

; finished? 


bne 

au3 

j ( no ) 


lea 

autodma+30< aO 

; copy fname to end of pathname 

au2: 

move, b 

(aO)+> <al )+ 


bne 

au2 



pea 

null env( pc ) 

; null enviroment 


pea 

null env( pc ) 

i no command tail 


pea 

autoname 

i ->filetoexec 


c Ir. ID 

-(sp ) 

j load-and— go 


move. ID 

#^4b,-(sp) 

; exec ( ... > 


trap 

#1 



add. ID 

#16, sp 



moveq 

#2, d7 

i reset cleanup amount 


move. ID 

#$4f, -(sp) 

i searchNext 


bra 

aul 


*+ 




* The 

first GEMDOS process can never terminate. 

* This is not a 

good feature. 


* Kludge around 

it — re-ini tial i ze the stack 

* and 

return to 

the guy uiho called 

us to begin with. 

* 




*— 




au_dn 

lea 

_supstk+2048, sp 

; setup supervisor stack 


move. 1 

autoret, — ( sp ) 

i get return addr 


r ts 


i just jump there . 


# bss for 

auto-exec : 




b ss 





autoret: 

ds. 1 

1 

; -> 

_auto's caller (yeccch) 

pathname: 

ds. 1 

1 

i -> 

filespec's pathname 

f i lename; 

ds. 1 

1 

i -> 

filename part of path 

autodma: 

ds. b 

44 

i 44 

bytes for directory search 

autoname: 

ds. b 

32 

i 32 

bytes for path+fi lename 


even 




text 
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V+ 

« _dumpit: dump screen 

# " 

*- 

_dump it: 

c Ir. ID _prtcnt 
bsr _scrdmp 

move. ID #$f f f f > _prtcnt 
rts 


*+ 


* _scrdmp - pr intScreen < ) # front-end to _prtblk<) 


* Passed: 

* Returns: 

* Uses: 

* 

*- 

_scrdmp ; 


nothing 
nothing 
everyth ing 


c Ir . 1 

a5 

i 

easy zeropage 

move. 1 

V bas ad (a5)< p^blkptr (a5) 

{ -> screen mem 

c Ir. ID 

p offset(aS) 

i 

offset * 0 

c Ir. ID 

dO 



move, b 

ssh i f tmd (aS ) « dO 

i 

get ID & h 

move. ID 

d0« p srcres(a5) 



add. ID 

dO. dO 



lea 

rez tab < pc ) < aO 



move. ID 

<aO. dO. id)» p_iDidth(aS) 

} 

set display width* he 

move. ID 

6(a0< dO. iD)<p_height(a5) 



c Ir. ID 

p_left<a5) 

f 

left « right = 0 

c Ir. ID 

p_right(a5) 



move. 1 

#*ff8240( p_colpal(a5) 

i 

-> hardware palettes 

c Ir. ID 

p_masks <a5) 

i 

default masks ptr 

or final 

. mode 



move. ID 

pconf ig <a5) < dl 

# 

p_dstr#s “ pconfig%%3 

Isr. ID 

«3. dl 



and. ID 

#1< dl 



move. ID 

d If p_dstres (a5) 




* printer or rs232 port 

move. ID pconfig(a5)(dl 

move. ID d 1 1 dO 

Isr. ID #4i dO 

and . ID #1 > dO 

move. ID d0< p_port (a5) 


* select printer flavor 
and. ID #7/ d 1 
move, b p ty p e ( p c > d 1 . id) > dO 
move. ID dOf p_type 


•» do it 

pea prtargs<a5) 

bsr _prtblk 


i p_port ® pconfig%*44 


• P_typ* “ ptypeCpconf ig & 73 


> -> beginning of parameter area 
; print it (finally) 
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addq #4> sp 
rts 


i cleanup stack 
; and return 


* screen resolution table (pixels) for printScreen 

reztab: dc.w 320. 640i 640 i widths 

dc. w 200.200.400 i heights 


* printer flavors (based on low 3 bits of pconfig) 

ptype: 


dc. b 

0 



atari mono dot 

dc. b 

2 



atari mono daisy 

dc. b 

1 



atari color dot 

dc. b 

-1 



[atari color daisy???! 

dc. b 

3 



epson mono dot 

dc. b 

-1 



Cepson mono daisy] 

dc. b 

-1 



Cepson color dot] 

dc. b 

-1 



Cepson color daisy] 

even 





* parameter 

storage 

for printScreen: 



bss 





prtargs; 





p_b 1 kptr; 

ds. 1 

1 


-> bitmap to print 

p_of f set: 

ds. w 

1 


offset on page 

p_width: 

ds. w 

1 


width and height 

p height: 

ds. w 

1 



p_left: 

ds. w 

1 J 

left 8e right leading 

p _r i g h t ; 

ds. w 

1 



p_srcres; 

ds. w 

1 


source rez (0. 1. 2) 

p_d stres: 

ds. w 

1 


destination rez (0. 1) 

p._colpal : 

ds. 1 

1 


-> color palettes 

P,_type: 

ds. w 

1 


printer type (0. 1) 

p_jiort: 

ds. w 

1 


printer port (0. 1) 

p _ma s k s : 

ds. 1 

1 


-> halftone masks 
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* 

■» Position-independent OS mover 

* (C)1985 Atari Corp. 

«• 

* Takes over from the Loader. 

* cleans up the display; 

* moves RAM-loaded OS from where 

* 

*• 23-May—1985 Imd Re-write from 

» 

#_ 


i t 

old. 


is to where it should 
crufty version. 


be. 


* interface 

1 owstar t 

equates to OS. 
equ ^580 

; start of low BSS to 

clear 

src_of f set 

equ 

*100 

i offset from 'start' 

to OS image 

os_si ze 

equ 

*38000 

> size of OS 



* hardware: 

dbaselo 

equ 

*ff8203 

; display 

base low (really, medium) 

dbaseh i 

equ 

*ff8201 

> display 

base high 

colorO 

equ 

*ff8240 

> base of 

palette mem 

gpip 

equ 

*fffa01 

; general 

porpoise input 


*+ 

* Take control 

from the Loader; 


* turn on interrupts and clean up the screen: 

* 

»- 



start: move, w 

#*2700. sr ; 

supermode, no interrupts 

bsr 

ramp > 

cleanup display 

lea 

start (pc ) . aO ; 

aO -> base of loaded OS 

lea 

src of f set (aO) . aO 


move. 1 

8(a0),al ; 

al = a2 = a3 -> destination 

move. 1 

a 1 . a2 ; 

a2 -> saddr 

move. 1 

a 1 . a3 ; 

a3 -> dest 

move, w 

#(os size/16)-l. dO ; 

dO = dl = size (16— byte chunks) 

move, w 

dO. dl 


* copy OS to 

destination: 


mvit; move. 1 

(aO)+. <al )+ ; 

copy 16 bytes /fast/ 

move. 1 

(aO)+. (al ) + 


move. 1 

(aO)+, (al) + 


move. 1 

(aO)+. (al) + 


d bra 

dO. mvit ; 

. . . until we're done 

* startup the system: 


jmp 

(a2) ; 

jump to OS base addr 
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*+ 

« ramp — pretty transition from boot screen (the Fog) 

* Takes about 0. 5 seconds for a color display; 

# No time atoll for a mono system. 

» 

■«— 

ramp : 

are we mono? 
yes» we ARE devo 



b tst. b 

#7, gp i p 

) 


beq 

i tsmono 

* 





* a color monitor is attached 

( attatched ) 

« anyway 

j bring 

up the fog... 


* 




*- 




ramp 1 : 

C 1 T' 1 

dO 

t 


1 ea 

col orO. aO 

I 


move, w 

#15. d7 

i 

ramp_2: 

move, w 

(aO). dl 

» 


and. w 

#*777, dl 

i 


cmp w 

#*777, dl 

i 


beq 

r amp_3 

* 

* bump color 

up one notch: 



move, w 

#*700. d2 

> 


moveq 

#2. d3 

t 

ramp. .4: 

move w 

dl, d4 

i 


and. w 

d2, d4 



move w 

#*777. d5 

' i 


and. w 

d2, d5 



cmp . w 

d5, d4 

» 


beq 

inc q 



move, w 

d2, d4 

f 


and. w 

#*111, d4 



add. w 

d4, dl 

f 


moveq 

#1. dO 

i 

incq: 

Isr. w 

#4. d2 

i 


dbra 

d3, ramp_4 

i 

ramp._3; 

move, w 

d 1 . ( aO ) + 

i 


dbra 

d7, ramp_2 

i 


move, w 

#*6000, d 1 

i 

ramp._d : 

dbra 

d 1 . ramp_d 



tst. 1 

dO 

i 


bne 

ramp__l 

i 


assume we're done 

aO -> palette RAM 

d7 count (do all colors) 

get palette bits 

strip garbage ones 

are we already at white? 

(yes. so don't increment this one) 


d4 


color h mask 


d4 $111 8< mask 

dl +“ d4; bump the color 
not done yet (set notDone flag) 
shift the mask down four bits 
do some more fields 

shove new value into palette register 
loop for more registers 

* delay a while 

e all palettes at $x777? 
o — so ramp again) 




* Done with the ramp 

* (ori we're on a mono system) 
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# Clobber last 32K of a 512K system 
<<■ and move the display there. 

* 


i tsmono : 


lea 

$78000, aO 

, aO - > 

base of new display 

move, uj 

#$7f f , dO 




move q 

#0, dl 

i cheap 

zero 


move. 1 

d 1 j ( aO ) + 

; clear 

16 by tes /real 

fast/ 

move. 1 

dl, (aO) + 




move. 1 

dl, <aO)+ 




move. 1 

d 1 , ( aO ) + 




dbra 

dO, zap 

i ... $800 times. . . . 


move, b 

#$07, dbasehi 

; point 

display at neuj 

base 

move, b 
r ts 

#$80, dbaselo 
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/* 

Initialize OS 

■» Start something up (either GEM or COMMAND.COM), 
* Return when that thing is done, 

» 


* 

* 

* 

•» 

* 

*/ 


4-Mar-1985 Imd 
4-Mar-1985 Imd 
ll-Mar-1985 Imd 
13-Mai — 1985 Imd 
13-Mar-1985 Imd 


Cleanup (removed some lint) 
Wired for new GEM system, 
split out osi() 
migrated buflCI to base BSS 
ripped out main() Cwhy keep 


(for future expansion) 
this file around?! 


#include "fs. h" 
extern long oscall()i 

#define xexec (a, bj c< d ) oscal 1 (0x4b/ b. C/ d ) 

/* 

* Sector buffers. 

* four seems to be about right (hard-coded in osi()> 

* Extensible through base-BSS links. 

*/ 

char secbuf C43lu512II> /* sector buffers */ 

BCB bcbxC43i /* bcb for each buffer */ 


/* 

* Initialize GEMDOS 
*/ 

osi < ) 

C 

extern BCB *buflC23» /■» two buffer lists */ 

extern int bootdev; 
extern int cmdioad; 


/* 

* Setup sector buffers (four of 
*/ 


b c b X CO! . b_l in k = 
bcbxC2!. b_link = 
bcbxCO!. fa_bufdrv 
bcbxCl!. b_bufdrv 
bcbxC2!. b_bufdrv 
bcbxC3!. b_bufdrv 
bcbxCO!.b_bufr = 
bcbxCl!.b_bufr = 
bcbxC2!.b_bufr = 
bcbxC33. b bufr = 


&b c b X C 1 3 ; 

«<bcb xC33i 
= - 1 ; 

= - 1 ; 

= - 1 ; 

= - 1 ; 

&secbuf C03C03; 
8<secbufC13C03; 
&secbuf C23C0!; 
&secbuf C33C03; 


' em ) 


/* 

* Setup links in buffer-list 

* First one caches FATs. 

» second one caches directory and data blocks. 
*/ 
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buflCOD - «<bcbxCODi 
buflClD = &bcbxC23; 

/* 

* Initialize OSj login boot device. 

*/ 

osinit ( ) i 
X setdrv ( b ootdev ) i 


/# fat buffers •»■/ 

/* dir/data buffers *./ 


/* initialize OS */ 

/* set default drive# */ 
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#include "portab.h" 

/* #define DAS_BOOT 1 

*/ 

/* 

ST Disk support (and random BIOS functions) 

* (01985 Atari Corp. 

* 

* 

* 23-Feb-1985 Imd Added multiple-sector floppy read support. 

* 23-Feb-1985 Imd Added "rand()“ function 

* 24-Feb-1985 Imd Added hard disk hooks. 

* 24-Feb-1985 Imd Added floppy and hard boot code. 

* 25-Feb-1985 Imd boot() goes to default boot device 

* 28-Feb-I985 Imd boot<) returns diagnostics, initializes disk system 

* l-Mar-1985 Imd Added proto_bt() boot sector prototyper 

* l-Mar-1985 Imd Added mediach(dev) BIOS call 

* 4-Mar-1985 Imd getbpb() sets disk mode to "SAFE” 

* 4-Mai — 1985 Imd fixed bugs in proto_bt(> 

* 9-Mar-1985 Imd Added critical error handler hook 

* 13-Mar-1985 Imd getbpb() returns NULL on read failure 

* 17-Mai — 1985 Imd Added ujr ite-veri f y switch 

* 22-Mar-1985 Imd Added magic r/ui mode to rwabs (ru» = 2, 3) 

* l-Apr-1985 Imd Moved DSBs to flops (hooray!) 

* a^Apr-1985 Imd Cleaned up installable dev interface 

* 15— Apr-1985 Imd Happy IRS day. 

* 15-Apr-1985 Imd check for dev>=2 (only floppies allowed. . . ) 

* 6-May-1985 Imd Added access-timing depended UNSURE checking 

*/ 

#define MAXACCTIM 300L /* 1. Sseconds "free" time */ 

#define READ 0 

#define WRITE 1 

#define low8bits(x) ((x)8<0xff) /* unsigned coercion of char to int */ 


/* 

* Information we need from an IBM— PC— format 

* boot sector: 

#/ 


#def ine 

VOL 

SERIAL 

0x08 

/* 

(. A) 

24-bit volume serial# 

*/ 

#def ine 

IBM 

BPS 

OxOb 

/■» 

(. W) 

#by tes/sector 

♦ / 

#def ine 

IBM 

SPC 

OxOd 

/* 

(. B) 

#sector s/cluster 

*/ 

#d ef ine 

IBM 

RES 

OxOe 

/« 

(. W) 

#reserved sectors 

*/ 

#def ine 

IBM 

_NFATS 

0x10 

/* 

(. B) 

#FATs 


#def ine 

IBM 

NDIRS 

0x11 

/* 

(. W) 

#root directory entries 


#def ine 

IBM 

NSECTS 

0x13 

/* 

(. W) 

#sectors on media 

*/ 

#def ine 

IBM 

MEDIA 

0x15 

/* 

(. B> 

media descriptor byte 

*/ 

#def ine 

IBM 

SPF 

0x16 

/■«■ 

(. W) 

#sec tors/FAT 

#/ 

#d e f ine 

IBM 

SPT 

0x18 

/* 

( . W) 

#sectors/track 

*/ 

#def ine 

IBM 

NSIDES 

Oxla 

/* 

(. W) 

#sides on dev 


#def ine 

IBM 

NHID 

Oxlc 

/* 

(. W) 

#hidden sectors 

*/ 
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#define CR ITICAL_RETRY OxOOOlOOOOL /* "retry" return code •»/ 

/* 


■» Error 

‘ codes 




* Sort 

of like the PC-DOS ones 




*/ 





#def ine 

OK 

0 

/* 

the anti— error */ 

#def ine 

ERROR 

(-1 ) 

/* 

anti-success */ 

#def ine 

DRIVE_NOT_READY 

(-2) 



#def ine 

UNKNOWIM_CMD 

(-3) 



#def ine 

CRC ERROR 

(-4) 



#def ine 

BAD REQUEST 

(-5) 



#def ine 

SEEK_ERROR 

(-6) 



#def ine 

UNKNOWN MEDIA 

(-7) 



#def ine 

SECTOR N0T_F0UND 

(-8) 



#def ine 

NO PAPER 

(-9) 

/* 

hou) can a disk do this? ■»•/ 

#def ine 

WRITE_FAULT 

(-10) 



#def ine 

READ_FAULT 

(-11) 



#def ine 

GENERAL MISHAP 

(-12) 

/* 

Captain_Catastrophe? */ 

#def ine 

WRITE_PROTECT 

(-13) 



#def ine 

MEDIA CHANGE 

(-14) 



#def ine 

UNKNOWN DEVICE 

(-15) 



#def ine 

BAD SECTORS 

(-16) 

/* 

bad sectors on media */ 

#def ine 

INSERT DISK 

(-17) 

/* 

fake two drives */ 

#def ine 

WRONG_DISK_DUMMY 

(-18) 

/* 

luser stuck in wrong disk */ 


/* 




* BPB structure 




* as defined by GEMDOS: 




»/ 




struct bpb -C 




WORD recsizi 

/* 

physical sector size in bytes */ 


c Isi Z/ 

/* 

cluster size in sectors */ 


clsizbf 

/* 

cluster size in bytes */ 


rdleni 

/* 

root directory length in sectors 

*/ 

f s i z 1 

/♦ 

FAT size in sectors ■*/ 


fatrec^ 

/* 

sector# of 1st sector of 2nd FAT 

*/ 

datr ec > 

/♦ 

sector# of 1st data sector */ 


numc If 

/* 

number of data clusters on disk 

*/ 

b f 1 a g s ; 

/* 

various flags #/ 


>f 




/* 





« Flags in bpb. bf lags: 

*/ 

#define BPB_16B IT_FAT 0x0001 /* indicates 16-bit FAT entries */ 


M 




/* 

* "Device State Block 

* as defined by us. 
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* The DSB is used by drivers to hold a device's state. 


* Most devices require a pointer to 

* in their calls. 

»/ 

struct dsb -C 
/* 

* Loaded (or computed from) 
*/ 

struct bpb b j 
WORD dntrackS) 

dnsides/ 
d sp c < 
dspt» 
d h i d d en; 

char dserialC3ji 

> dsbtabC21i 


this beastie as a parameter 


the boot sector: 

/* JDOS' BPB */ 

/*■ #tracks (cylinders) on dev */ 
/* #5ides per cylinder */ 

/* #sectors/cy 1 inder */ 

/* #sectors/trac k */ 

/* #hidden tracks */ 

/* 24-bit volume serial number */ 


/* 

* ^/ariables maintained by floppy vblank monitor: 
»/ 


extern char wpstatusCl; /* 
extern char uiplatchCl; /* 
extern WORD motoron; /* 


/* 

* Other floppy variables: 

*/ 

unsigned extern long hz_200; /■* 

extern char diskbufCl; /♦ 

extern int nflops; /* 

unsigned extern long acctimC.1; /-^ 

long maxacctimi /* 

char d i s kmod e C21 ; /* 

int flopokC21; /* 

int curflopi /* 


ur i te— protec t status */ 

uir ite-protect status latch */ 

motor— on status (for both drives) */ 


system timer tick */ 
disk buffer somewhere in BSS */ 
number of active floppies -COi 1<2> 
time of last floppy access */ 
delay for floppy to turn UNSAFE ■»/ 

floppy mode <BAFE, UNSURE, CHAN(5ED> */ 
0: drive OK; -1: drive unusable */ 

current floppy# inserted */ 


/# 

* Floppy modes 

* (states for disk— change 
*/ 

tdefine SAFE 0 
#define UNSURE 1 
#define CHANGED 2 


detection) 

/* media has definitely not changed */ 

/^^ media might have changed (we don't know) 
/* media has definitely changed ->/ 


*/ 


* dskinit - initialize floppy drives 
*/ 

dskinit( ) 

-C 

LONG getbpb ( ) ; 
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extern LONG drvbits; 

WORD i, ji 
char *s< -wd; 

maxacctim = MAXACCTIM; 

for (i = curflop = nflops =0; i < 2; ++i) 

■C 

diskmodeCiil = SAFE. 

if ((flopokCi: = flopini(OL. 0L> i. 0, 0, 0)) == 0) 
■C 

++nf lops; 
drvbits 1= 3; 

> 

> 

} 


/* 

* getdsb - return pointer to DSD 
»/ 

LONG getdsb<dev) 

WORD dev; 

■C 

return OL; 

} 


/* 

* getbpb - return pointer to BPB 

* Reset disk mode to "SAFE" 

#/ 

long getbpb(dev) 

WORD dev; 

•C 

register struct dsb *q; 
register struct bpb *p; 
register int i» j; 
char *S/ *d; 

LONG ret» floprd(). critic(); 

if (dev >= 2) 

return NULL; 

q = S(dsbtabCdev3f 
p = &q— >b; 


/» only floppies here »/ 
/•» can't do much ... */ 

/* pointer to DSB */ 

/* pointer to BPB */ 


/* 

* Read the boot sector. 

* Compute the DOS BPB from the MSDOS one. 

*/ 

do -C 

ret = f 1 oprd ( d i s kbuf » OL» dev* 1» 0/ 0i 1); 
if (ret < 0) ret = critic ( (WORD)reti dev); 

} while (ret == CRITICAL RETRY); 
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if (ret < 0) return NULL; 


/* 

* If recsiz or clsiz turns out to be zero, 

* don't attempt to use the BPS. 

*/ 

if (!(i = u2i(diskbuf + IBM_BPS)) !! 

!(j = loujabits(di5kbuf CIBM_SPC1) ) ) 
return NULL; 


/* 

* Build the BPB from the MSDOS— format information: 

*/ 

p->recsiz = i; 
p->clsiz = j; 

p->fsiz = u2i(diskbuf + IBM_SPF>; 
p->fatrec = p->fsiz + 1; 
p->clsizb = p->recsiz * p->clsiz; 

p->rdlen = (u2i(diskbuf + IBM_NDIRS) « 5) / p->recsiz; 

P“>datrec = p->fatrec + p->rdlen + p->fsiz; 

p— !>numcl = <u2i(diskbuf + IBM_NSECTS) — p— >datrec) / p— >clsiz; 

q->dnsides = u2i(diskbuf + IBM_NSIDES>; /* "extra" info */ 

q->dspt = u2i(diskbuf + IBM_SPT); 

q->dspc * q->dnsides * q->dspt; 

q->dhidden = u2i(diskbuf + IBM_NHID); 

q->dntracks = u2i(diskbuf + IBM_NSECTS) / q->dspc; 

for ii ~ Oi i < 3; ++i) /# copy serial# */ 

q->dserialCi] = diskbuf CVOL_SERIAL + ij; 

/* make safe/unsure */ 

diskmodeCdev] = (up latch Cdevl = upstatusCdevI ) ? UNSURE ; SAFE; 

return (long)q; /* return BPB ptr «/ 


/* 

*■ mediach — determine if media has changed 

* Return SAFE if the media definitely has not changed. 

* Return UNSURE if ue're not sure if it's changed. 

» Return CHANGED if ue're sure the media changed. 

* 

*/ 

WORD mediach (dev) 

WORD dev; 

■C 

register WORD dv; 
register char #dm; 

if (dev >= 2) /* only floppies here */ 

return UNKNOWN DEVICE; 


S^70 
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d V = dev; 

dm = 8<diskmodeCdvIli 

if (-H-dm == CHANGED) return CHANGED; 
if (wplatchCdv: ) *dm = UNSURE; 
if ( ( h z __200 - acctimCdv]) < maxacctim) 
return SAFE; 
return *dm; 


/* albjays hack CHANGED */ 

/# ==> UNSURE */ 

/# SAFE if within time limit */ 

/* return UNSURE or SAFE ■»/ 


/* 

* rwabs - read multiple sectors from dev< into a buffer: 

*/ 

LONG rwabslrui/ buf. count* recno* dev) 

WORD rw; 

LONG bufi 

WORD count* recno* dev; 

< 

reg i 5 ter int i i 
register WORD dv; 
register LONG rtn* 
register struct dsb *p; 

LONG ret; 

WORD med iac h ( ) * 

LONG f loprwl ); 

if (dev >= 2) /* only floppies here */ 

return UNKNOWN_DEUICE* 

dv = dev; 

if (rui < 2) 

■C 

p = &dsbtabCdvJ; 

/* 

* Check for media change. 

* If the media is UNSAFE* then read the boot sector to 
■» determine if the media really was changed. 

* If the media was changed* return an error to the caller. 

*/ 

i = mediach(dv)> 

if (i == CHANGED) return MEDI A_CHANGE; 
else if (i == UNSURE) 

/# 

* Read boot sector and compare volume's serial number with 

* the one in the DSB. 

*/ 

do -C 

ret = floprd(diskbuf* OL* dv. 1* 0* 0* 1); 

if (ret < 0) ret = critic ( (WORD)ret* dv); 

> while (ret == CRITICAL_RETRY) ; 
if (ret < 0) return ret; 


^ 7 / 



Jljl 
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for(i=0> i<3; ++i ) 

if (diskbuf CVOL_SERIAL + il != p->d serial C i D ) 
return MEDI A_CHANGE; 

/■» Reset write-protect latch */ 
if ( ! ( wp 1 ate h C d vl = tup s tatu s C d v 3 ) ) 
d i 5 kmod e C d v3 — SAFE; 

> 

> 

if (!nflops) return DR I VE_NQT_READY; 

if (rui > 1) ru) -= 2; /* fix magic r/uj #/ 

return f 1 oprw ( rw/ bufi recno» dv. count); 


/* 

* flopruj - floppy read/write sectors 
*/ 

LONG floprw(ru)> buf< recnoi dev. count) 

WORD ru; 

LONG bufi 

WORD recnoi dev. count; 

< 

LONG critic(). flopver(). floprd(>. flopur(); 
int u2i ( ) ; 

extern WORD fverify; 

register struct dsb *p; 
register LONG ret; 

register WORD track, side. sect, ent; 

WORD oddflag; 

LONG bf; 


p &d sb tab C devl i 

oddflag = < <buf «< 1 ) == 1 ); 

if (ip->dspc) /* "cannot happen" */ 

p->dspt = p->dspc = 9; 


/* 

* Read or write sectors. 

* Optimize for multi-sector transfers 

* (as much of a track as possible): 

*/ 

while (count) 


bf = oddflag ? diskbuf . 
track = recno / p->dspc; 
sect = recno ’/. p— >dspc; 
if (sect < p->dspt) 
side = 0 ; 

else 


side = 1; 

sect — = p->dspti 


b uf ; 


/* choose a buffer */ 

/* compute track# */ 

/* compute sector# */ 

/* single-sided media */ 

/* two -5 ided media */ 
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if (oddflag) cnt = 1« 
else if (<p->dspt - sect) < count) 
cnt = p->dspt - sect; 
else cnt = count; 

++sect; 

do -C 


/* unaligned; read 1 sector */ 

/•»■ rest of track */ 

/# part of track */ 

/* physical sector number */ 


/* write */ 


if (ruj) 

•f 

if (bf != buf) fastcpy(buf< bf); 

ret = flopwr(bf. OLi dev. sect, track, side, cnt); 

if (!ret && fverify) /* verify */ 

ret = f lop ver < d i sfcbuf . OL. 

dev. sect, track, side, cnt); 
if <!ret &St u2i < d iskbuf ) ) 
ret = BAD SECTORS; 


> 

else 


/* read */ 

ret = floprd<bf. OL. dev. sect, track, side, cnt); 
if (bf != buf) fastcpy(bf. buf); 


if (ret < 0) 

ret = cr itic ( (WORD)ret. dev); 
> while (ret == CRITICAL_RETRY) ; 
if (ret < 0) return ret; 


buf += ((long)cnt « 9); 
recno += cnt; 
count -= cnt; 


/■» advance DMA pointer */ 
/* bump record number */ 
/* decrement count */ 


return OK; 


/* sue cess ! */ 


#ifndef DAS_BOOT 
/* 

* Random number generator parameters. 

* (from Knuth. vol II) 

*/ 

#define RAND_A 3141592621L 
#define RAND C 1 


/* multiplier */ 
/* incrementer */ 


LONG seed; 


/* seed (zeroed at pouerup) */ 


/* 

•» Return a 24-bit random number. 

# If the seed is zero (uninitialized) 

* then use the frame clock, slightly 


fZS 
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* muriged» as a starting value. 

*/ 

LONG rand ( ) 

< 

extern LONG hz ^200; /* ram 200— h z system timer counter */ 

if (!seed) seed = hz_200 I <hz_200 « 16), 
seed = (RAND_A # seed + RAND_C); 
return <seed » 8) & Oxffffff; 

> 

#end if 


#define B00T_MAGIC 0x1234 


/* magic boot-sector checksum */ 


/* 

* Error returns: 

*/ 

#define N0_DRIVE 1 

♦define COULDNT_LOAD 2 

♦define UNREADABLE 3 

♦define NOT VALID BS 4 


/* no floppy attatched #/ 

/* couldn't read boot sector */ 
/* unreadable boot sector */ 

/* boot sector not executable */ 


/* 

* Boot from floppy or hard disk. 

* Returns OK if diskbufCl contains an executable 

* boot sector. 

*/ 

boot() 

extern WORD _hinit(); 
extern WORD bootdev, 
extern LONG floprd(); 
register WORD err; 


/* 

* Initialize disk system: 

*/ 

h ini t ( ) i 
/* 

* Attempt to load boot sector from floppy "bootdev". 
*/ 

err = nflops ? N0_DRIVE : C0ULDNT_L0AD; 
if (nflops (bootdev < 2)) 

< 

if ( ! f 1 opr d ( d i s k b uf , OL, bootdev, 1, 0, 0, 1)) 

err = OK; 

else if ( ! wpstatusCOl ) return UNREADABLE, 

> 

if (err != OK) return err; 

/« 
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Successfully loaded boot sector from somewhere) 
check it out; 

*/ 

return ( c h ec k sum ( d i s k b uf , 0x100) == B00T_MAGIC) ? OK : N0T_0ALID_BSi 

> 


#ifndef DAS_B00T 
/* 

* Prototype BPBs for floppies; 

* used to construct boot sectors. 

*/ 

char proto_tabm = 

■C /* 40 tracks single sided */ 

0x00. 0x02. 0x01. 0x01. 0x00. 0x02, 0x40, 0x00. 0x68, 0x01, 
Oxfc. 0x02. 0x00. 0x09. 0x00. 0x01. 0x00. 0x00. 0x00. 

/* 40 tracks double sided ■*/ 

0x00. 0x02, 0x02, 0x01, 0x00, 0x02, 0x70, 0x00, OxdO. 0x02. 
Oxf d. 0x02. 0x00, 0x09. 0x00, 0x02. 0x00. 0x00, 0x00. 

/* 80 tracks single sided */ 

0x00. 0x02, 0x02. 0x01, 0x00, 0x02, 0x70, 0x00, OxdO. 0x02, 
OxfS, 0x05, 0x00. 0x09, 0x00, 0x01, 0x00, 0x00, 0x00. 

/* 80 tracks double sided */ 

0x00, 0x02. 0x02, 0x01, 0x00, 0x02, 0x70, 0x00, OxaO, 0x05, 
0xf9, 0x05, 0x00. 0x09, 0x00, 0x02, 0x00, 0x00, 0x00 

>; 


/* 

* Prototype a boot sector. (this is a strange function, . . ) 

» 

* 'serial' is the disk's volume ID (or —1 not to initialize). 

* If serial > Oxffffff, it is replaced by a different, random serial number 

* 

* 'dsktyp ' is the disk size (0, 1, 2, 3). or —1 not to initialize. 

* 

* If 'execflg' is 1, the boot sector is made executable (bootable); 

» If 'execflg' is 0, the boot sector is g'teed NOT to be executable; 

* If 'execflg' is -1. keep the boot sector the way it was passed 

* (it will stay executable or non-executable, no matter what other 

* changes were made to it). 

*/ 

WORD proto_bt(buf, serial, dsksiz, execflg) 
char *buf; 

LONG serial; 

WORD dsksiz. execflg; 

■C 

1 ong rand ( ) ; 
register int i. j; 
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register char -^s; 
WORD *pj uji 


/* 

* If execflg < 0» determine if boot sector is already executable. 

* Whatever the casej make sure the sector /stays/ the way it 

* came to us. 

*/ 

if (execflg < 0) 

execflg = ( c h ec k sum ( b uf > 0x100) == B00T_MA<3IC ) ; 


/* 

* Install volume ID 
*/ 

if (serial >= 0) 

•C 

if (serial > OxOOffffff) 
serial = rand ( ) ; 
for ( i = Oi i < 3; ++i ) 

■C 

buf CVOL_SERIAL + i] = serial 8. Oxff; 
serial »= 9i 

> 

> 


/* 

* Install BPB 
*/ 

if (dsksiz >= 0) 

■C 

j = dsksiz * 19i 

for ( i = Oi i < 19; ++i) 

bufCIBM_BPS + il = pr oto_tab C j++3 ; 

> 


/* 

* Make the sector executable or non-executable. 
*/ 

w = Oi 

for (p = bufi p < (buf + Oxlfe)i ) 

UJ += #p++f 

*p = BOOT_MAGIC - UJi 
if (lexecflg) ++(*p)i 

> 

#end i f 


/* 

* Compute checksum of a number of 16-bit words. 
*/ 

WORD checksum(pi cnt) 

WORD *p; 
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int cnt; 

< 

register WORD ii 

for ( i = 0; cnt — i ) 
i += *p++; 
return ii 

> 


/■» 

* Convert an 8086-f lavored integer 

* to a 68000 integer. 

*/ 

int u2i ( 1 oc ) 
char -iHoci 
•C 

return ( 1 oujSb i ts ( * ( 1 oc + 1 ) ) « 8) ! 1 oui8b i t s ( oc > ; 

> 
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22 - 

22 - 

23- 

25- 

25- 

27- 


28-Feb-1985 Imd 


das_fa oot 
# 

* 

* 

» 

■» 

* 

* 

# 

* 

* 

* 

» 

* 

* 

* 

* 

■» 

» 

* 

* 

* 

« 

* 

•» 

* 

* 

■» 

* 

•» 

•» 

* 


equ 


0 


130-ST / 520-ST 
Floppy Disk Driver 
(C)1985 Atari Corp. 


-Feb-1985 Imd 
-Feb-1985 Imd 
-Feb-1985 Imd 
-Feb-1985 Imd 

-Feb-1985 Imd 
Feb-1985 Imd 


4- 

7- 

8 - 

10 - 

13 - 

13 - 

13 - 

17 - 

21 - 

22 - 

22 - 


Mar- 

Mar- 

Mar- 

Mar- 

-Mar- 

-Mar- 

-Mar- 

-Mar- 

-Mar- 

-Mar- 

-Mar- 


■1985 Imd 
-1985 Imd 
-1985 Imd 

-1985 Imd 
-1985 Imd 

-1985 Imd 
-1985 Imd 
-1985 Imd 
-1985 Imd 
•1985 Imd 
-1985 Imd 


28-Mar-1985 Imd 


1 - 

1 - 

8 - 

30- 

1 - 

6 - 


Apr 

Apr 

Apr 

Apr 

May 

May 


■1985 Imd 
-1985 Imd 
■1985 Imd 
■1985 Imd 
■1985 Imd 
■1985 Imd 


Added wr i te— protec t and motor— on monitoring. 
Substituted format-track for format-disk. 

Mu 1 1 i p 1 e— sec tor DMA in _floprd. 

_flop(ur understands "ccount" (but cannot do 
multi-sector DMA — a hardware constraint). 
Added "virgin" parameter to _flopfmt 
_flopwr<) can write an entire track in one 
revolution of the disk. . . . 

_floprd() doesn't do reseek on seek error 
(it takes too long) 

Added "bad sector" return to _flopfmt 
Fixed bug in _flopfmt bad sector return 
Fixed "floplock" and "flopulok" to save and 
restore C registers. 

Added "disk flip" code (hook to _critic) 

If single-floppy system, copy drive O's write- 
protect transitions to drive 1. 

Set _wplatch after disk flip 
Return reasonable error numbers 
Added _flopver() 

dasBoot assembly switches, default seek rate 
format_track sets media change mode to CHANGED 
a write to the boot sector sets the media 
change mode to UNSURE. 

Force write-protect to "real time" mode 
on any exit from the driver. 

Moved floppy DSBs to here. 

Based variables off of zero— page 
Moved flock out of here to public basepage 
Disk errors set media-change mode to UNSURE 
Bug in _flopini; mis-use of args on stack 
Set _motoron nonzero on any floppy command. 
Added acctimCl timer variables. 


text 


* Tunable 

values 

( sub j ec t to 

twea king); 


retries 

equ 

2 

; default # of retries 

- 1 

midretry 

equ 

1 

; "middle" retry (when 

to reseek ) 

timeout 

equ 

*40000 

; short timeout (motor 

already on) 

1 timeout 

equ 

*60000 

i long timeout (to startup motor) 


* 

Exports: 

.globl _flopini 

i init floppy 

f unc 


.globl _floprd 

; read sector 

f unc 


.globl _flopvbl 

i vertical blank monitor 

f unc 
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ifeq das_boot 


. g 1 ob 1 

_f 1 o p wr 

. g 1 0 b 1 

_f 1 op f mt 

. g 1 0 b 1 

_f 1 op ver 

end c 


. g 1 o b 1 

__wpstatu5 

. globl 

_wp latch 

. globl 

_motoron 

. globl 

_a c c t i m 


* Imports; 


. globl 

flock 

. globl 

_f rc lock 

. globl 

_n f 1 o p s 

. globl 

_c ur f 1 op 

. globl 

_c r i t i c 

. globl 

see krate 

. globl 

d i s kmod e 

. globl 

_hz_200 



media 

change 

modes 

<T). 

_c hang ed 

equ 

2 

m. 

_unsur e 

equ 

1 


# 

Error 

returns 


e 

_err or 

equ 

-1 

e 

_nready 

equ 

-2 

e 

_cr c 

equ 

-4 

e 

_see k 

equ 

-6 

e 

_rnf 

equ 

-8 

e 

_wr i t e 

equ 

-10 

e 

_r ead 

equ 

-11 

e 

_wp 

equ 

-13 

e 

badsects 

equ 

-16 

e 

_inser t 

equ 

-17 


* Floppy 

state 

variables in D: 

r eca 1 

equ 

♦ ffOO 

d c urtrac k 

equ 

0 

d seekrt 

equ 

dc urtrac k+2 

d sb s i z 

equ 

d see kr t+2 


* DMA chip: 



d i s k c 1 1 

equ 

4ffff8604 

f ifo 

equ 

*ff f f8606 

dmah i g h 

equ 

*ffff8609 

dmami d 

equ 

$ffff860b 


write sector func 
format drive/track func 
verify sectors func 


write-protect state (2 drives) 
write-protect latch (2 drives) 
motor-on status (1 byte, both drives) 
time (200 hz tick) of last access 


floppy/FIFO lock variable 
vb 1-f rame-c ounter 

number of floppy drives attached 
currently inserted floppy 
critical error handler 
default floppy seek rate 
disk change mode 
200 hz timer ticker 


i "CHANGED" media 
i "UNSURE" about media change 


general catchall 
dr i ve-not-ready 
CRC error 
seek error 

record (sector) not found 

generic write error 

generic read error 

write on write-protected media 

bad sectors on format-track 

insert a disk 


recalibrate flag (in dcurtrack) 
current track# 
floppy's seek-rate 
(size of a DSB ) 


disk controller data access 
DMA mode control / status 
DMA base high 
DMA base medium 
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dma 1 ou; 

equ 

if ff f960d 

* 1770 

select values: 

cmdreg 

equ 

iao 

tr kr eg 

equ 

i82 

seer eg 

equ 

i84 

datar eg 

equ 

iS6 

* GI ( 

" p sg " ) sound 

chip; 

giselect 

equ 

iff f fseoo 

g iread 

equ 

iff ffasoo 

g iurite 

equ 

if f ffaao 2 

g i p or ta 

equ 

ie 


# 68901 ("mfp") sticky chip; 

mfp equ 

gpip equ mfp+1 


; DMA base low 


i select command register 
i select track register 
i select sector register 
i select data register 


; (W) sound chip register select 

; (R) sound chip read-data 

i (W) sound chip urite-data 

; GI register# for I/O port A 


! mfp base 

i general purpose I/O 


*+ 

« 

* SYNOPSIS (synopsis!?): 

» 

* _f 1 op ini ( d sb . 0L> devno) 

* _floprd(dsbi buf» devno^ sectno. trackno; sideno> count) 

* _f lopuir ( dsb^ bufi devno< sectno# trackno# sideno# count) 

* _f lopfmt(dsb# buf# devno# spt# trackno# sideno# interlv# magicno# virgin) 

* _f 1 op vb 1 ( ) 

* _f lopver < d sb# buf# devno. sectno# trackno# sideno# count) 

* 

* An "EQ" return means success. Zero is returned in DO. W. 

An "NE" return means failure. Some negative error number is return in DO. W. 

■» 

* Parameter types (in general): 

* LONG dsb, buf; 

* WORD devno# sectno# trackno# counti 

* WORD spt# interlv# virgin; 

* LONG magicno; 

* 

*- 


* flopini - initialize floppies 

* Passed (on the stack): 



ic ( sp ) 

devno 

* 

i8( sp ) 

->DSB 


i4(sp ) 

->buffer (unused) 

* 

iO ( sp ) 

return address 

* 
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* RetuT'ns: 

EQ if in i t ia 1 i za t i on 

succeeded (drive attached). 



NE if initialization 

failed (no drive attached). 

_f 1 o p i n i : 





lea 

dsbO> al 


get ptr to correct DSB 


tst. (U 

$c ( sp ) 




b eq 

f i_l 




1 ea 

dsb 1 > al 



f i_l: 

move, uj 

seek rate/ dseekrt(al ) 


setup default seek rate 


moveq 

#e_errori dO 


(default error) 


clr. ui 

dcurtrac k <al ) 


fake clean drive 


b sr 

f 1 op 1 oc k 


setup parameters 


b sr 

select 


select drive and side 


move, tu 

#recali dcurtrac k (al ) 


default = recal drive (it's dirty) 


b sr 

restore 


attempt restore 


b eq 

f i ok 


(quick exit if that won) 


moveq 

#10, d7 


attempt seek to track 10 


b sr 

hseek 1 


(hard seek to 'd7') 


bne 

f i _n o k 


(failed: drive unusable) 


b sr 

restore 


attempt restore after seek 

fi_ok; 

b eq 

f lopok 


return OK (on win) 

f i _n o k ; 

bra 

f 1 op fa i 1 


return failure 





* 

floprd - read 

sector from 

floppy 


Passed (on the stack): 


» 

«14(sp ) 

count 


* 

«12(sp ) 

sideno 


* 

*10(sp ) 

trac kno 



$e ( sp ) 

sec tno 


* 

$c ( sp ) 

d evno 



$8( sp ) 

->DSB 


« 

«4(sp ) 

->b uf f er 


* 

«0(sp ) 

return address 

* 

Returns: 

EQ, the read 

won (on all sectors). 

* 


NE, the read 

failed (on some sector) 


-«•- 

_f 1 o p r d ; 


bsr 

change 

i 

test for disk change 

moveq 

#e_read, dO 

i 

set default error# 

b sr 

f 1 op 1 oc k 

} 

lock floppies, setup parameters 

frdl: bsr 

select 

i 

select drive, setup registers 

b sr 

go2trac k 

r 

seek appropriate track 

bne 

f rd e 

§ 

retry on seek failure 

move, w 

#e error, curr err 

i 

set general error# 

move, w 

#«090, (a6) 

i 

toggle DMA data direction. 

move, w 

#*190, (a6) 

i 

leave hardware in READ state 

move, w 

#*090, (a6) 



move, w 

ccount(aS), diskctl 

i 

set sector count register 

move, w 

#*080, (a6) 

i 

startup 1770 "read sector" command 


/// 
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move, u) 

#*90 > d7 

1 

(read multiple) 

bsr 

uid iskctl 



move. 1 

#timeoutj d7 

i 

set timeout count 

move. 1 

edma ( a5 ) j a2 

i 

a2 -> target DMA address 

-» — -- Wait for read completion: 



frd2: btst. b 

#5> gp ip 

i 

1770 done yet? 

beg 

frd4 

i 

( y es ) 

sub g. 1 

#1. d7 

j 

decrement timeout counter 

beg 

frd3 

j 

(punt on timeout) 

move, b 

dmahighi tmpdma+l<a5) 

i 

get hardware DMA pointer 

move, b 

dmamidi tmpdma+2(a5) 

t 

(most significant bytes FIRST) 

move, b 

dmalouii tmpdmar3<a5) 



cmp. 1 

tmp dma < a5 ) ■ a2 

j 

if(tmpdma <C edma) continue; 

bgt 

frd2 



b sr 

resetl770 

t 

we're done — - interrupt controller 

bra 

frd4 

) 

see if the read won 

■» timeout: reset the controller and 

retry: 

frd3: move, ui 

#e_nready» curr_err(a5) 

i 

set "timeout" error 

b sr 

resetl770 

i 

(clobber 1770) 

bra 

frde 

i 

(go retry) 

* check status after read: 



frd4: move, ui 

#*090, <a6) 

9 

examine DMA status register 

move, u 

(a6), dO 



btst 

#0, dO 

i 

bit zero indicates DMA error 

beg 

frde 

i 

(when its zero — retry) 

move. Ui 

#*080, (a6) 

i 

examine 1770 status register 

b sr 

rd iskctl 



and. b 

#*18, dO 

) 

check for RNF, checksum, lost-data 

beg 

f lopok 

9 

return DK if no errors 

bsr 

err_b i ts 

i 

set error# from 1770 bits 

frde: cmp. ui 

#midretry, retrycnt(a5) 

i 

are we on the "middlemost" retry? 

bne 

frd5 



frdel: bsr 

reseek 

i 

yes, home and reseek the head 

frd5; subg. w 

#1, retrycnt(aS) 

9 

drop retry count 

bpl 

frdl 

9 

(continue if any retries left) 

bra 

f lopfail 

9 

fail when we run out of patience 



*+ 






* err_bits - set 

"curr err 

" according 

to 1770 error status 



* Passed: 

dO = 1770 

status 




* Returns: 

* 

curr_err. 

containing 

current error number 



* Us e s : 

dl 





*- 






err_b its: 






moveg 

#e wp , d 1 


; write protect? 



btst 

#6, dO 





bne. s 

eb 1 
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eb 1 : 


moveq 

#e_rnf j d 1 

b tst 

#4, dO 

bne. s 

ebl 

moveq 

#e_cr c 1 d 1 

btst 

#3, dO 

b eq 

eb 1 

move 

def_error (a5) , dl 

move, w 
rts 

d 1 1 curr_err <a5 ) 


i rec ord— not— f ound ? 


i CRC error? 


i use default error# 
i set current error number & return 


ifeq das_boot 
*+ 

* flopur 

# Passed 


- write sector to floppy 
(on the stack): 


# 

*14(sp ) 

count 




■» 

»12(sp ) 

5 i d eno 




* 

$10(sp) 

trac kno 





*e ( sp ) 

sec tno 





$c ( sp } 

devno 





$8(sp ) 

->DSB 




* 

*4 ( sp ) 

->buffer (unused) 




« 

♦0 ( s p ) 

return address 




* Returns: 

EQ» the write won (on 

all 

sectors ) , 


^ 


NEj the write failed 

( on 

some sector). 


_f lopwr: 






bsr 

change 

i 

check for disk swap 



moveq 

#e_write» dO 

i 

set default error number 



b sr 

f lop loc k 

i 

lock floppies 


■»•+ 






* If 

the boot sector is written to» 




* set 

the media 

change mode to "unsure". 



# (Kludge^ kludge^ kludge. . . . ) 





move, w 

csect (a5) < dO 

} 

sector 1 



sub q 

#l,dO 





or. w 

ctrack <a5)/ dO 

i 

track 0 



or. w 

c s i d e (a5 ) > dO 

i 

side 0 



bne 

f wr 1 

i 

if not boot sector, then 

OK 


moveq 

#m_changedi dO 

r 

set media change mode to 

unsure 


bsr 

setdmod e 

i 

(boy, is this /ugly/) 


f wr 1 ; 

b sr 

select 

i 

select drive 



bsr 

go2trac k 

i 

seek 



bne 

fwr el 

i 

(retry on seek failure) 


fwr la 

move, w 

#e_error# curr err(a5) 

i 

set general error# 



move, w 

#*190, (a6) 

i 

toggle DMA chip to clear 

status 


move, w 

#*090, (a<b) 





move, w 

#*190. (a6) 

i 

leave in WRITE mode 



move, w 

#1. d7 

/ 

load sector-count register 


bsr 

wdiskctl 
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move, w 

#$180/ (a6) 


move, w 

#$aO, d7 


b sr 

wd i s k c 1 1 


move. 1 

#t imeout) d7 

f wr2; 

btst. b 

#5/ g p i p 


beq 

f wr4 


sub q. 1 

#1/ d7 


bne 

f wr2 


b sr 

reset 1770 


bra 

fwre 

f wr4. 

move, w 

#$180. (a6) 


b sr 

r d i s k c 1 1 


b sr 

err _b its 


btst 

#6/ dO 


bne 

f 1 op fa i 1 


and. b 

#$5c / dO 


bne 

fwre 


addq. w 

#1/ csect(a5) 


add. 1 

#$200/ cdma(a5) 


subq. w 

#1 . cc ount ( a5 ) 


beq 

f 1 op ok 


b sr 

selectl 


bra 

f wr la 

fwre; 

cmp. w 

#midretry. retrycnt(aS) 


bne 

f wr 5 

fwre 1 ; 

b sr 

reseek 

fwr5: 

subq. w 

#1. retrycnt(aS) 


bp 1 

f wr 1 


bra 

flop fa i 1 


i load "WRITE SECTOR" command 
; into 1770 cmdreg 

i d7 = timeout count 

i doT>e get'? 
i Cyes, check status) 

; decrement timeout count 
i (still tickin') 

; timed out — reset 1770 
; and retry 

i get 1770 status 

i compute 1770 error bits 
i if write protec tedi don't retry 
i (can't writer so punt) 

i check Wr itePr ot+RecNtFnd-*-CHKSUH+LostD 
; retry on error 

i bump sector number 
i and DMA pointer for next sector 
i if(! — count) return OK; 

; setup sector#) DMA pointer 
1 write next (no seek) 

; re-seek head in "middle" retry 
i (not middle retry) 
i home head and seek 
i decrement retry count 
i loop if there's still hope 
; otherwise return error status 


_flopfmt 


* Passed 


format a track 
(on the stac k ) : 



$1 a ( sp ) 

initial sector data 


$16 ( sp ) 

magic number 


$14(sp) 

inter 1 eave 


$12(sp ) 

side 


$10(sp ) 

trac k 

* 

$e ( sp ) 

sp t 


$c ( sp ) 

drive 

* 

$8(sp ) 

pointer to state block 


$4( sp ) 

dma address 


$0 ( s p ) 

Creturn^ 


* Returns: 

* 

* 

* 

»- 

_f 1 op f mt : 


EQ. track successfully written, 
bad sectors left in buffer (they 


Zero. W-terminated list 
might /all/ be bad. ) 


o f 


NE: could not write track (write-protected/ drive failure/ 

or something catastrophic happened). 




Jul 


9 12; 54 1985 flop, s Page 8 


cmp . 1 

#$87654321, $16( sp ) 

bne 

flopfail 

b sr 

change 

moveq 

#e__error, dO 

b sr 

f 1 op 1 oc k 

b sr 

select 

move. IK 

$e(sp), spt(a5) 

move. u> 

$14(sp), interlv(aS) 

move. IK 

$la(sp), virgin(a5) 

put drive 

into "changed" mode 

moveq 

#m_c hanged, dO 

b sr 

setdmod e 

seek to track (hard seek): 

b sr 

hseek 

bne 

flopfail 

move. IK 

ctrack(a5), dcurtrack( 


check for magic# on stack 

no magic, so we just saved the wor 

check for disk flip 

set default error number 

lock floppies, setup parms 

select drive and side 

save sec tor s — p er~trac k 

save interleave factor 

save initial sector data 


; dO = "CHANGED" 
i set media change mode 

; hard seek to 'ctrack' 
i (return error on seek failure) 
1) i record current track# 





format track, then verify it: 


move, ui 

#e_error, curr_err(a5) 

b sr 

f mtrac k 

bne 

flopfail 

move. (K 

spt(a5), ccount(a5) 

move. IK 

#1, csect(a5) 

b sr 

verify 1 


vanilla error mode 
format track 

(return error on seek failure) 
set number of sectors to verify 
starting sector# = 1 
verify sectors 


* 


if there are any bad sectors, return 
move. 1 cdma(a5),a2 > 

tst. ui (a2) ' 

beq f lopok J 

move, w #e_badsects, curr_err (a5) ; 
bra flopfail i 


/that/ error. . . 
a2 -> bad sector list 
any bad sectors? 
no — return OK 
set error number 
return error 


*+ 

* fmtrack - 

* Passed: 

* Returns: 

* Uses: 

* Called-by: 


format a track 

variables setup by _flopfmt 
NE on failure, EQ on success 
almost everything 
_flopfmt 


*- 

f mtrac k : 



move. IK 

#e write, def_error (a5) 


move. IK 

#l,d3 


move. 1 

c dma ( a5 ) , a2 


move. IK 

#60-1, dl 


move, b 

#$4e, dO 


b sr 

wmult 

* 

address mark 

ot3: 

move. IK 

d3, d4 

ot 1 : 

move. IK 

#12-1, dl 


c Ir . b 

dO 


b sr 

wmu 1 1 


set default error number 
start with sector 1, first pass 
a2 -> prototyping area 
6>0 X ^4e (track leadin) 


d4 = starting sector (this pass) 

12 X *00 
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■» 


move, w 

#3-1, dl 

move, b 

#$f 5, dO 

b sr 

wmu 1 1 

move, b 

#$fe, (a2)+ 

move, b 

c trac k + 1 , ( a2 ) + 

move, b 

cside+l, (a2)+ 

move, b 

d4, (a2)+ 

move, b 

#$02, (a2)+ 

move, b 

#$f7, (a2)+ 

1 between AM and data: 

move, w 

#22-1, dl 

move, b 

#$4e. dO 

bsr 

wmu It 

move, w 

#12-1, dl 

clr. b 

dO 

bsr 

wmu 1 1 

move, w 

#3-1. dl 

move, b 

#$f 5. dO 

bsr 

wmu 1 1 


> 3 X «f5 


Sife — address mark 

trac k# 

side# 

sector# 

sector size (512) 
write checksum 


; 22 X *4e 


i 12 X $00 


i 3 X $f5 


intro 


* 

data block: 



move, b 

#$fb. (a2)+ 


move, w 

#256-1, dl 

ot2: 

move, b 

virgin(a5), (a2)+ 


move, b 

virg in + 1 (a5) , (a2) + 


dbra 

dl, ot2 


move, b 

#$f7, (a2) + 


move, w 

#40-1, dl 


move, b 

#$4e, dO 


bsr 

wmu It 


add. w 

inter lv(a5) , d4 


cmp. w 

spt(a5), d4 


b 1 e 

otl 


add. w 

#1, d3 


cmp. w 

inter 1 v ( a5 ) , d3 


b 1 e 

ot3 

* 

end-of-trac k 


move, w 

#1400, dl 


move, b 

#$4e, dO 


b sr 

wmu It 



setup to write the track: 


move, b 

cdma+3(a5), dmalow 


move, b 

cdma+2(a5), dmamid 


move, b 

cdma+l(a5), dmahigh 


move, w 

#$190, (a6) 


move, w 

#$090, (a6) 


move, w 

#$190, (a6) 


move, w 

#$lf , d7 


bsr 

wdiskctl 


move, w 

#$180, (a6) 


move, w 

#$fO, d7 


bsr 

wdiskctl 


$fb — data intro 

256 X virgin. W (initial sector data) 

copy high byte 

copy low byte 

fill 512 bytes 

$f7 — write checksum 

40 X $4e 


bump sector# 

if(d4 <= spt) then_continue; 
proto more sectors this pass 
bump pass start count 
if(d3 <= interlv) then_continuei 


i 1401 X $4e — end of track trailer 


; load dma pointer 


i toggle R/W flag and 
; select sector-count register 

i (absurd sector count) 

• select 1770 cmd register 
; write format track command 
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move. 1 #timeout/d7 


d7 = timeout value 


# u/ait for 1770 to complete; 


otwl : b tst. b 

b eq 

subq. 1 
bne 
b sr 

oterr; moveq 
rts 

* see if the 

otw2: move, w 

move, ui 
btst 
beq 

move, uj 
b sr 
b sr 
and. b 
rts 


#5, gpip 
otui2 
#1, d7 
otul 

resetl770 
#1, d7 


write-track won; 
#«190, (a6) 

<a6)i dO 

#0, do 

oterr 

#$180, (a6) 
rdiskctl 
err_b its 
#«44, dO 


; is 1770 done? 
i ( yes ) 

; if( — d7) continue; 

; timed out — reset 1770 
i return NE (error status) 


i check DMA status bit 

i if its zero, there was a DMA error 
i (so return NE ) 
i get 1770 status 

i set 1770 error bits 
i check for writeProtect & lostData 
• return NE on 1770 error 


* write 'Dl + 1^ copies of DO. B into A2, A2+1, ... 

wmult; move, b dO, (a2)+ i record byte in proto buffer 

dbra dl, wmult i (do it again) 

rts 


*+ 

■» _flopver - verify sectors on a track 

* *14(sp ) count 

* ^12(sp) sideno 

* <>10(sp) trackno 

* $e(sp) sectno 

* ♦c(sp) devno 

* ♦S(sp) “>DSB 

* 4>4(sp) ~>buffer (at least IK long) 

* 40(sp) return address 

* Returns: NULL. W-terminated list of bad sectors in the buffer if DO 

* OR some kind of error (DO < 0). 

•» 

#- 


f 1 op ver : 


b sr 

change 

i hack disk change 

moveq 

#e_readi dO 

i set default error# 

b sr 

f 1 op 1 oc k 

; lock floppies, setup 

b sr 

select 

i select floppy 

b sr 

go2trac k 

i go to track 

bne 

f 1 op fa i 1 

i (punt if that fails) 

b sr 

ver i f y 1 

i verify some sectors 

bra 

f 1 op 0 k 

i return "OK" 


parameters 


0 , 


#+ 
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verifyl - verify sectors on a single track 


* Passed; 

csect = starting sector# 



ccouTit = number of sectors to verify 

-«■ 


cdma — > IK buffer (at 

least) 

■R- 

* Returns; 

NULL. W--terminated list 

of bad sectors (in the buffer) 

* 


( b uf f er+$200. buf f er-i-^Gf f used as DMA buffer) 

* Enviroment: 

Head seeked to the correct track; 



Drive and side already 

selec ted; 

* 


Motor should be spinning (go2track and fmttrack do this) 

* Uses: 

Almost everything. 


TT 

* Called-by: 
■» 

_flopfmti _flopver 


*- 

ver i f y 1 ; 




move, ui 

#e_readi def_error (a5> 

; set default error number 


move. 1 

cdma ( a5 ) < a2 

; a2 -> start of bad sector list 


add. 1 

#H200j cdma(a5) 

i bump buffer up 512 bytes 

* 

setup for 

(next) sector 


tvr 1 p 

move, (ii 

#retries. retrycnt(a5) 

i init sector-retry count 


move, ui 

#secreg. (a6) 

; load 1770 sector register 


move. UI 

csect(a5) • d7 

; uiith 'csect' 


b sr 

uid iskc 1 1 


* 

setup for 

sector read 


tvr 1 ; 

move, b 

cdma+3(a5)> dmaloui 

; load dma pointer 


move, b 

cdma-^2(a5)/ dmamid 



move, b 

cdma+l ( a5 ) < dmah i gh 



move. UI 

#«090, (a6) 

; toggle R/W (leave in U state) 


move. UI 

#<190, (a6) 



move. UI 

#$090, (a6) 



move. UI 

#1, d7 

; set DMA sector count to 1 


b sr 

uid i s kc 1 1 



move. UI 

#$080, (a6) 

; load 1770 command register 


move. UI 

#$80, d7 

, with ReadBector command 


b sr 

uid i s k c 1 1 



move. 1 

#t imeout, d7 

; set timeout value 

# 

uiait for 

command completion 


tvr2: 

btst. b 

#5, g p i p 

; test for 1770 done 


b eq 

tvr4 

; (yes, it completed) 


sub q. 1 

#1, d7 

; decrement timeout count 


bne 

tvr2 

i (still counting down) 


b sr 

resetl770 

i reset controller and return error 


bra 

tvr e 


* 

got "done 

" interrupt, check DMA status; 

tvr4: 

move. UI 

#$090, (aA) 

; read DMA error status 


move. UI 

(a6), dO 



btst 

#0, dO 

; if DMA_ERROR is zero, then retry 


b eq 

tvr e 
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# 

check 1770 

completion status 

(see if 


move, uj 

#*080, (a6) 

i 


b sr 

rdiskctl 



b sr 

err bits 



and. b 

#*lc, dO 



bne 

tvre 


* 

read next 

sector (or return 

if done) 

tvr6: 

addq. ui 

#1 > c sec t ( a5 } 

i 


subq. w 

#1 , ccount ( a5 ) 

i 


bne 

tvrlp 



sub. 1 

#*200. cdma(a5) 



c Ir. u) 

(a2) 



rts 




it's happy ) : 

read 1770 status register 

set error# from 1770 register 
check for record-not-f ound< crc-err- 
and lost data> return on error 


bump sector count 

uihile( — count) read_anotheri 

readjust DMA pointer 
terminate bad sector list 
and return EQ 


* read failure: retry or record bad 


tvre : 

cmp. u 

#midretry. retrycnt(a5> 


bne 

tvr5 


b sr 

reseek 

tvr5: 

subq. Ill 

#1. retrycnt(aS) 


bp 1 

tvr 1 


move. Ill 

csect(a5), (a2)-i- 

end c 

bra. s 

tvr6 


sector 

i re-seek head? 

: (no ) 

; yes: back to home and then back 

} to the current track... 

i record bad sector 
i do next sector 


*+ 

♦ _flopvbl - floppy vblank handler 

* Deselects floppies after the motor stops. 
*- 

_f lopvb 1 : 


fvbl2; 


clr. 1 

a5 

} 

a5 -> zeropage base 

lea 

f i f o. a6 

} 

a6 -> fifo 

st. b 

motoron (a5) 

i 

assume motor is on 

tst. Ul 

f lock(a5) 

$ 

floppies locked? 

bne 

f vb Ir 

i 

(yes. so don't touch them) 

write- 

protect monitor: 



move. 1 

frc lock. dO 

i 

check a drive every 8 jiffies 

move, b 

dO. dl 

i 

(save jiffy count) 

and. b 

#7. dl 

$ 

time yet? 

bne 

fvbll 

i 

(no) 

move, w 

#cmdreg. (a6) 

i 

select 1770 c ommand/status register 

lect drive, record it's WP 

status: 


Isr. b 

#3. dO 

i 

use bit 4 as drive# to check 

and. w 

#1. dO 

9 

(keep only bit 0) 

lea 

_wpstatus (a5>. aO 

9 

aO -> write-protect status table 

add. w 

dO. aO 

9 

aO — > WP-status table entry 

cmp. w 

nf lops. do 

i 

if(dO == nflops == 1) 

bne 

fvbl2 

9 

dO = Oi 

c Ir. w 

dO 



addq. b 

#1. dO 

9 

turn into drive-select bits 

Isl. b 

#l.dO 

9 

(magic shift left) 

eor. b 

#7. dO 

9 

invert select bits, select side 0 
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f vb 1 1 : 


fvblrl: 
f vb Ir : 


b sr 

se t p or ta 

move . w 

diskctl, dO 

b t s t 

#6, dO 

sne. b 

(aO) 

move, b 

d2, dO 

b sr 

setpor ta 

move. UJ 

_u» p status(aS), dO 

or. w 

do, _iup latch (a5) 


floppy 

deselect test 

tst. ui 

deselflg (a5) 

bne 

fvblrl 

b sr 

rdiskctl 

b t s t 

#7. dO 

bne 

f vb 1 r 

move, b 

#7, dO 

b sr 

setpor ta 

move. UJ 

#1, deselflg( a5 ) 

c Ir . HI 
r ts 

_motor on ( a5 ) 


set p o r t A <d2 ~ old bits) 
get 1770 status 

test Wr i t e--Pr o t ec: t status bit 
set WP status to tOO or itFF. 
r-estore old drive-' select bits 


or _u»p status into up latch 
(catch any WP transitions) 


floppies already deselected^ 
(yes, so don't do it again) 

read 1770 status register 
is the motor still on? 

(yes, so don't deselect) 

deselect both drives 

(set bits O. 3 in port A of P80 ) 

indicate floppies deselected 

indicate motor is OFF 

back to vb 1 


*+ 

* floplock - lock floppies and setup floppy parameters 

* 



Passed (on the 

stack ) : 

-» 

«lB(sp ) 

— count. W (sector count) 

« 

«16(sp ) 

- side.W (side#) 

* 

♦14( sp ) 

-- track.W (track#) 

* 

♦12(sp ) 

— sect. W (sector#) 

* 

»10(sp ) 

— dev. W (device#) 

« 

*c ( sp ) 

— obsolete. L 

-M- 

8( sp ) 

- dma L (dma pointer) 


4 ( sp ) 

— retl L (caller's return address) 

-M- 

0( sp ) 

— ret.L (floplock's return address) 

-N- 

Passed : 

DO. W = default error number 


*- 

floplock: 


movem, 1 

d 3— d 7/a3— a6i, regsave 

save 

C registers 

c 1 r 1 

a5 

a 5 — > 

1 er opage base 

1 ea 

f i f 0, a6 

a6 -> 

f 1 f o 

s t 

_m o t o r 0 n 

k 1 u d g 

e motor state — 8N 

move . UJ 

dO, d e f _er r or ( a 5 ) 

set default error number 

move UJ 

dO, curr_err(a5) 

set c 

urrent error number 

move UJ 

#1, f loc k (a5) 

tel 1 

vbl not to touch floppie 

move 1 

8 ( sp ) , c dma ( a5 ) 

c dma 

-> /even/ DMA address 

move, UJ 

♦ lO(sp), cdev(a5) 

save 

device# (0 1) 

move UJ 

*12(sp), csect(a5) 

save 

sector# (1 9, usually 

move UJ 

tl4(sp), ctrack(aS) 

save 

track# (O 39 79 

move UJ 

*16(sp), cside(a5) 

save 

side# (0 1 ) 
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move. UJ 1 18 ( sp ) , c c oun t ( a5 ) 
move. w #r etr i es / retry cnt ( a5 ) 


save sector count (1. . spt) 
setup retry count 


* pick a DSB: 


f lock2: 


#- 


f lockl 
f loc kr: 


1 ea 

dsb0(a5) i al 

tst. w 

c d ev ( a5 ) 

beq 

f lock2 

lea 

dsbl (a5)< al 

npute ending DMA address from 

moveq 

#0, d7 

move, w 

ccount (a5) > d7 

1 s 1 . w 

#8, d7 

1 s 1 . w 

#1, d7 

move. 1 

cdma (a5) > aO 

add. 1 

d7, aO 

move. 1 

aO) edma (a5) 

;al ibrate 

drive (if it needs 

tst. w 

dcurtrac k (al ) 

bpl 

f 1 oc kr 

bsr 

select 

c Ir . w 

dcurtrac k (al ) 

b sr 

restore 

beq 

f loc kr 

moveq 

#10. d7 

bsr 

hseek 1 

bne 

f 1 oc k 1 

b sr 

restore 

beq 

f lockr 

move, w 
r ts 

#recal. d c urtrac k ( a 1 ) 


edma = cdma + (ccount * 512) 


if (curtrack < 0) recal ibrate ( ) 


select drive side 

we're optimistic — assume winnage 
attempt restore 
(it won) 

attempt seek to track 10 
(failed) 

attempt restore again 
(it won) 

complete failure (what can we do?) 


-»•+ 

* f lopfai 1 

* 

*- 

f lopfai 1 : 


unlock floppies and 


moveq 
b sr 

move, w 
ext. 1 
bra. s 


#m_unsurej dO 
setdmod e 
c urr_err ( a5 ) » dO 
dO 

unlok 1 


return error. 


f disk change mode = UNSURE 
i set media change mode 
i get current error number 
i extend to long 
; clobber floppy lock 8t return 


*+ 

* flopok - unlock floppies and return success status: 


* 

*- 

flopok: 

clr. 1 

dO 

i return 0 (success) 

unlok 1 : 

move. 1 

dO. -(sp ) 

i (save return value) 


move, w 
move, w 
bsr 

move, w 

#datareg. (a6) 
dcurtrack(al). d7 
wdiskctl 
#*10, d6 

i force WP to real-time mode 
i dest-track = current track 

i cmd = seek w/o verify 


S'?/ 
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bsr flopcmds 

move, in cdevi dO 

1 s 1 . uj #2i dO 

lea _acctim. aO 

move. 1 _hz_200(a5)i (aO> dO. ui) 

cmp. in #lj_nflops 

bne unlok2 

move. 1 _h z _200 ( a5 ) » 4 ( aO ) 

unlok2: move. 1 (sp)+» dO 

movem. 1 reg savei d3-d7/a3-a6 

clr.in flock 

rts 


i do it 

i set last-access time for 'cdev' 

i if <nflops == 1) set other time, too 

i set la st— ac c essed time for floppy 1 

; restore return value 
i restore C registers 
i unlock floppies 



*+ 

* hseek - seek 

* hseekl - seek 

* hseek2 - seek 

* Returns: 

* 

* 

* Uses: 

* Jumps“to: 

* Called-by: 

« 

*- 

hseek: move, in 

hseekl: move, in 
hseek2: move, in 
bsr 

move, in 
bra 


to 'ctrack' uiithout verify 
to 'd7' inithout verify 

to 'd7' inithout verify< keep current error number 

NE on seek failure (“cannot happen"?) 

EQ if seek mins 

d7i d6, ... 

flopcmds 

_flopfmt» _flopini 


ctrac k» d7 
#e_seek< curr_err 
#dataregj <a6) 
indiskctl 
#* 10 , 66 
flopcmds 


i dest track = 'ctrack' 

} possible error = "seek error" 
i write destination track# to data reg 

} execute "seek" command 
; (inithout verify. . . ) 


*+ 

* reseek - home head, then reseek track 

* Returns: EQ/NE on success/failure 

* Falls-into: go2track 

» 

*— 

reseek: 

move. w #e_see k , c urr_err ; set "seek error" 

bsr restore j restore head 

bne go2trr f (punt if home fails) 

clr. w dcurtrac k (al ) > current track = 0 

move. w #trkreg. (a6) ; set "current track" reg on 1770 

c Ir . w d7 

bsr wdiskctl 


move. w #datareg, (a6) J seek out to track five 

move, w #5, d7 
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fa sr 

move, uj 
fa sr 
fane 

move, ui 


uid i s kc 1 1 
#*10, d6 
f lopcmds 
go2trr 

#5, dcurtrack(al) 


dest track = 5 
seek 

return error on seek failure 
set current track# 


*+ 

* go2track 

* Passed: 

* Returns: 

* Calls: 


seek proper track 

Current floppy parameters (ctrack, et al. ) 

EQ/NE on success/failure 

flopcmds 


go2trac k : 

move, w 

move. UJ 

move, u 

bsr 

moveq 

fasr 

fane 

move, til 
and. fa 

go2trr: rts 


#e_seek, curr_err i 
#datareg, (a6) i 
ctrac k (a5) , d7 ; 
uidiskctl i 
#*14, d6 i 
flopcmds ; 
go2trr i 
ctrack (a5), dcurtrack(al) 
#*18, d7 i 


set "seek error" 
set destination track# in 
1770''s data register 
(write track#) 

execute 1770 " see k_iiji th_ver i f y " 
(include seek-rate bits) 
return error on seek failure 
update current track number 
check for RNF, CRC_error, lost_data 
return EQ/NE on sue c es/f a i 1 ur e 


*+ 

* restore - home head 

* Passed: nothing 

* Returns: EQ/NE on success/failure 

* Falls-into: flopcmds 

*- 


restore: 

c Ir. w 

b sr 

bne 

btst 

eor 

bne 

c Ir . w 

res r: rts 


d6 i 

flopcmds i 

res_r '• 

#2, d7 i 

#*04, ccr i 

res_r ; 

dcurtrac k (al ) i 


*00 = 1770 "restore" command 
do restore 
punt on timeout 
test TRKOO bit 

flip Z bit (return NE if bit is zero) 
punt if didn't win 
set current track# 


*+ 

# 

* 

* 

* 

flopcmds 


flopcmds — floppy command (or— in seek speed bits from database) 
Passed : 

Sets-up : 

Falls-into: 

Returns : 


d6. w = 1770 command 
seek bits (bits 0 and 1) in d6. w 
f lopemd 

EQ/NE on success/failure 


move, w dseekrt(al ) , dO 
and. fa #3, dO 

or. b dO, d6 


get floppy's seek rate bits 
OR into command 




Jul 9 12: 54 1985 f lop, s Page 17 


* flopcmd - execute 1770 command (uith timeout) 

* Passed: d6. ui = 1770 command 

» 

* Returns: EQ/NE on sue c ess/f ai 1 ur e 




d7 = 1770 status 

« 



*- 



flopcmd : 

move. 1 

#timeout, d7 


move, w 

#cmdreg, (a6) 


b sr 

rdiskctl 


b tst 

#7. dO 


bne 

f lopcm 


move. 1 

#1 timeout, d7 

f lopcm: 

bsr 

wd i s kc t6 

f lope 1 : 

subq. 1 

#1, d7 


beq 

f lopeto 


btst. b 

#5, gpip 


bne 

f lopcl 


bsr 

rd iskc t7 


c Ir. bi 
r ts 

d6 

f lopeto: 

bsr 

resetl770 


ffloveq 

rts 

#1, d6 


i setup timeout count (assume short) 
i select 1770 command register 
i read it to clobber READY status 
i is motor on? 

1 (gesi keep short timeout) 
i extra timeout for motor startup 
i utrite command (in d6> 

i timeout? 

; (yesj reset and return failure) 
i 1770 completion? 

> (not yeti so wait some more) 
i return EQ + 1770 status in d7 


i bash controller 
; and return NE 


*+ 

* resetl770 - reset disk controller 

* Passed: nothing 

* Returns; nothing 

* Uses: d7 

*- 


reset 1770: 

move, bi 
move, w 
b sr 

move. Ill 
rl770; dbra 
b sr 
r ts 


#cmdregi (a6) 
#*d0, d7 
bid iskctl 
#15, d7 
d7, rl770 
r d i s k c t7 


after a catastrophe 


; execute 1770 "reset" command 


; wait for 1770 to stop convulsing 
i (short delay loop) 
i return 1770 status in d7 


*+ 

* select - setup drive select, 1770 and DMA registers 

* Passed: cside, edev 

* Returns: appropriate drive and side selected 

■»- 


select; 

clr.w deselflg(a5) 
move, w cdev(a5),d0 
addq. b #1, dO 
Isl. b #1, dO 


floppies NOT deselected 
get device number 
add and shift to get select 
into bits 1 and 2 


bits 
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or. w 

cside(a5># dO 

i 

eor. b 

#7, dO 


and. b 

#7# dO 


b sr 

setporta 

i 

move, w 

#trkreg. (a6) 

i 

move, w 

dc urtrac k (al ) # d7 

i 

bsr 

wdiskctl 


c Ir. b 

tmp dma (a5 ) 

J 


or-in side number (bit 0) 
negate bits for funky hardware select 
strip anything else out there 
do drive select 

setup 1770 track register 

from current track number 

zero bits 24. . 32 of target DMA addr 


* alternate 

selectl : 

move, u 
move, w 
bsr 

move, b 
move, b 
move, b 
r ts 


entry point: setup R/W parameters on 1770 


#secregj (a6) 
c sec t (a5 ) < d7 
uid iskctl 

cdma+3(a5}i dmalow 
cdma+2(a5)< dmamid 
cdma+1 (a5)< dmahigh 


i setup requested sec tor_numb er from 
; caller's parameters 

i setup DMA chip's DMA pointer 


#+ 


* setporta - set floppy select bits in PORT A on the sound chip 


* Passed: 

* Returns; 

* 

* Uses 
#- 


dO. b (low three bits) 
dl = value written to port 



d2 = old value read 
dl 

from 

port A 

1 ; 

move 

sr# -( sp ) 

i 

save our IPL 

or 

#*0700. sr 

i 

start critical section 

move, b 

#giporta. giselect 

9 

select port on GI chip 

move, b 

g iread. d 1 

i 

get current bits 

move, b 

dl. d2 

9 

save old bits for caller 

and. b 

#*ff-7. dl 

9 

strip low three bits there 

or. b 

dO. dl 

9 

or— in our new bits 

move, b 

d 1. g iwr i te 

9 

and write 'em back out there 

move 
r ts 

(sp )+. sr 

9 

restore IPL to terminate CS. return 


*+ 

* Primitives to read/write 1770 controller chip (DISKCTL register). 

* 

* The 1770 can't keep up with full-tilt CPU accesses# so 

* we have to surround reads and writes with delay loops. 


* This is not 
■» 

really as slow as 

it sounds. 




wdiskct6: 


« 

write 

d6 to 

diskctl 

bsr 

rwdelay 

9 


d e lay 


move. 

w d6s d i skctl 

9 


write 

i t 

bra 

rwdelay 

9 


delay 

and return 

wdiskctl: 


•» 

write 

d7 to 

diskctl 

bsr 

rwdelay 

9 


delay 



89S- 


Jul 9 12:54 1985 flop s Page 19 



move, w 

d7.diskctl 


write it 


bra 

rwdelay 


delay and return 

rd iskct7; 


»■ read 

diskctl into d7 


b sr 

rwd e lay 


delay 


move, w 

diskctl/ d7 


read it 


bra 

rwd e lay 


delay and return 

rd ifekc 1 1 : 


» read 

diskctl into dO 


bsr 

rwd e lay 


delay 


move, w 

d i skct 1 I dO 


read it 

rwdPlay : 

move 

sri -( sp ) 

save 

flags 


move, w 

d7, -(sp ) 

save 

counter register 


move, w 

#*20, d7 

0x20 

seems about right... 

rwdlyl: 

dbra 

d7, rwd 1 y 1 

busy- 

-loop: give 1770 time to 


move, w 

( sp )+, d7 

restore register# flags, and 


move 
r ts 

( sp ) +, sr 




settle 

return 


*+ 

* change - check 

* On the stack; 

* *10(sp) ■ 

* <c ( sp ) ■ 

* 8( sp ) - 

* 4( sp ) ■ 

* 0( sp ) • 

* 

* Returns: 

* 

* Uses: 


to see if the "right" floppy has been inserted 

- dev. U (device#) 

- dsb. L (pointer to Device State Block) 

- dma. L (dma pointer) 

- retl. L (caller's return address) 

- ret. L (change's return address) 

both media "might have changed" condition 
C registers 


« 

*- 

change : 


c h _o k 1 : 
c h r ; 


cmp . w 

#1# _n flops 

bne 

ch_r 

move, w 

*iO( sp ) , dO 

cmp. w 

_c ur f 1 op , dO 

beq 

c h _o k 1 

the user to stick in th 

move, w 

dO, -( sp ) 

move, w 

#e_insert, - ( sp ) 

bsr 

_c r i t i c 

add. w 

#4, sp 

move, w 

#*ffff, _wp latch 

move, w 

*10(sp ), _curf lop 

c Ir . w 

«10(sp ) 

r ts 



i if there are zero or two floppies 
; then do nothing (return OK) 

i if cdev == _curflop 

i (. , . current disk == current drive?) 

; then return OK (but use drive #0) 

floppy (via critical error handler) 
i push disk# we want inserted 
; push " INBERT_A_DISK" error number 
i use critical error handler and 
i hope somebody handles it 

; set "might have changed" on both drvs 

i set current disk# 

; use drive O 


* setdmode - set drive-change mode 
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* Passed: 

* Uses: 

* 

*- 

setdmode: 


dO. b 
aO 


= mode to put current drive in (0> 1< 2) 


1 ea 

_d iskmode. aO 

; aO -> disk mode table 

move, b 

dOi -( sp ) 

i (save mode) 

move. Ui 

cdev(a5)i dO 

; dO. Ui = drive# (index 

move, b 

( sp ) ( aO< dO. UI ) 

i set drive's mode 

rts 




into table) 


dskf: dc. b 
dc . b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
even 


7.10101110 

7.11010110 

7.10001100 

7.00010111 

7.11111011 

7.10000000 

7,01101010 

7.00101011 

7.10100110 


bss 

retry cnt: 
_uipstatus: 
_wp latch : 
_acctim: 
_motoron: 
deself Ig: 


Floppy RAM usage: 

ds. w 1 

ds. b 2 

ds. b 2 

ds. 1 2 

ds. u> 1 

ds. ui 1 


retry counter (used) 

WP status (2 drives) status 

WP latch (2 drives) status 

last access counter 
motor-on-P (both drives) status 
deselect flag state 


cdev; 

ds. UI 

1 

ctrac k : 

ds. UI 

1 

csect: 

ds. UI 

1 

cside: 

ds. UI 

1 

ccount: 

ds. UI 

1 

cdma: 

ds. 1 

1 

edma : 

ds. 1 

1 


; device # 
i track number 
1 sector number 
i side number 
; sector count 
i DMA address 
i ending DMA address 


parm 
parm 
parm 
parm 
.parm 
parm 
c omp uted 


sp t : 

ds. Ui 

1 

> 

inter Iv: 

ds. UI 

1 


virgin: 

ds. Ui 

1 

i 

tmpdma: 

ds. 1 

1 

# 

def_error : 

d s. Ui 

1 

i 

curr err: 

ds. UI 

1 

i 


#sectors_per_trac k flopfmt parm 
interleave factor flopfmt parm 

fill data for sectors flopfmt parm 

temp for harduare DMA image 
default error number 
current error number 


reg save: 
dsbO: 
dsb 1 : 


ds. 1 9 

ds. b dsbsi z 

ds. b dsbsi z 


i save area for C registers 
; floppy O's DSB 
; floppy I's DSB 
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# * 

* ST SERIES BIOS SOURCE REV. A # 

* THIS PORTION BY D. GETREU * 

•# # 

* 

* copyright 1984/ 1985 atari corporation * 

* all rights reserved «■ 

* # 

* * 


*^*******»*#-» #***«**##*»**#***#**********■»■»*■»■»****#•»*#«•«• ■»■»**«*****#♦**•»•»■»■«• 


*+ 

* rbios. s - character 

« 

* 

* 

* 

* 

# 

#- 


Oct-Feb 84/85 dbg 
13-Mar- 1985 Imd 
may 7 , 1985 dbg 


I/O routines 
Backed it up 

Ripped out 'conout' (nou in escape, s) 
conditional assembly added for country of origin 
(USAi UK/ ITALY. GERMANY. FRANCE) 


*+ (Imd) 

* Imports: 

« 

*- 

. g 1 ob 1 _t imr_ms 
.globl etv_timer 
. g lob 1 _h z_200 
. globl conterm 
. globl _dump f Ig 


i timer C calibration 

i system timer handoff vector 

i timer c raw tick 

.console configuration byte 

; f lag to signal a screen dump <alt-HELP) 


*+ (dbg) 

* Exports: 

« 

*- 

.globl kb s h i f t 
. globl pconf ig 


USA equ 0 
UK equ 1 
GERMANY equ 2 
FRANCE equ 3 

COUNTRY equ USA 
♦COUNTRY equ 
♦COUNTRY equ 
♦COUNTRY equ 


i set country of origin to USA 

UK i set country of origin to UK 

GERMANY ; set country of origin to GERMANY 

FRANCE i set country of origin to FRANCE 


♦#**■»■»■«■•«•**•«■■«•**»***#♦*■»•*#*#•»*#*****************##♦*#*##**##«**#***#******# 
♦ ♦ 

♦ general equates for the rbp system rom ♦ 

♦ ♦ 


^9? 
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##*#**#**#*-»-*-»»#*-»-*»**#*«-#-»-*#*'K-'«-*«-*-«''»-*'»-*'«-**-»-*-«-*-»--K'-«-*-»'**»***'«-***«-**#*-«^***** 
# * 

* acia register commands * 

■«• * 

**«■*****#*##****##«•##*#**#**#«■**«*##**********•«■*****■»•**»*******«■■«•****♦*#* 


r setae ia 

equ 


/iOOOOOOll .reset acia 

d iv64 


equ 


7.00000010 i set to clock line to /64 

d i vl6 


equ 


700000001 i set to clock line to /16 

* note 

the 

keyboard 

and 

midi units expect 8 bits/1 stop bit/no parity!! 

protocol 

equ 


700010100 i set to 8 bit/1 stop/no parity 

» note 

the 

keyboard 

and 

midi units may allow for transmitting interrupts 

» 

therefore we 

define all possible states here. we will 

* 

assume that 

it 

is init'ed as bar/rts=low. disabled. 

rtsld 


equ 


700000000 irts=low. interrupt disabled 

rtsle 


equ 


700100000 irts=low. interrupt enabled 

rtshd 


equ 


701000000 ;rts=high. interrupt disabled 

r tsbr k 


equ 


701100000 ;rts=low. interrupt disabled, break 

* note 

the 

keyboard 

and 

midi units may be allowed to 

* 

send interrupts 

to the host 

intron 


equ 


710000000 i interrupts enabled 

introf f 


equ 


700000000 i interrupts disabled 

w************************************************************************ 

« 


acia 

1 status definitions 

*«•**##**********•»■#»****#•»■•«■*»*•»*********«■**************«■******■»**•»****•»•*** 

rdrf 


equ 


700000001 

tdre 


equ 


700000010 

ded 


equ 


700000100 

cts 


equ 


700001000 

fe 


equ 


700010000 

ovrn 


equ 


700100000 

pe 


equ 


701000000 

irq 


equ 


710000000 

* 

control register "or" mask settings 

c 19200 

equ 

1 



c9600 

equ 

1 



c4800 

equ 

1 



c3600 

equ 

1 



c2400 

equ 

1 



c2000 

equ 

1 



cl 800 

equ 

1 



cl200 

equ 

1 



c600 

equ 

1 



c300 

equ 

1 




^^9 
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o2G0 

eq^u 

1 



cl 50 

equ 

1 



cl34 

equ 

1 



Clio 

equ 

1 



c75 

equ 

2 



c50 

equ 

2 



# 

timer 

data reg 

is ter settings 


d 19200 

equ 

11 



d9600 

equ 

2 



d4800 

equ 

4 



d3600 

equ 

5 

; 3840 baud — X error 

of 6. 66 

d2400 

equ 

8 



d20O0 

equ 

10 

; 1920 baud — % error 

of 4. 00 

d 1800 

equ 

11 

i 1745 baud — 7. error 

of 2. 50 

dl200 

equ 

16 



d600 

equ 

32 



d300 

equ 

64 



d200 

equ 

96 



dl50 

equ 

128 



d 134 

equ 

143 

j 134. 26 baud — 7. error of 0. 

dllO 

equ 

175 

i 109. 71 baud — 7. error of 0. 

d75 

equ 

64 



d50 

equ 

96 




************#****♦********«•********»*«•«■******♦****************■"•****■****** 

* 

■«• g. i. sound chip ay-3-8910 definitions and init code * 

* * 
**»**#**# ***********-|(.************<HHHHH<-********************************'** 


g i base 

equ 

*ffff8800 

* 

gi chip 

register offsets 

g i se 1 ec t 

equ gibase+O .write 

rddata 


equ gibase+O ibyte 

wr data 


equ gibase+2 > byte 

* 

gi register select offset numbers 

toneaf 

equ 

0 

toneac 

equ 

1 

tonebf 

equ 

2 

tonebc 

equ 

3 

tonec f 

equ 

4 

tonecc 

equ 

5 

noise 

equ 

6 

mixer 

equ 

7 

aamp It 

equ 

8 

bamp 1 t 

equ 

9 

camp I t 

equ 

10 

f ienvlp 

equ 

11 

cnenvlp 

equ 

12 

shenvlp 

equ 

13 


data register 
of register 
of register 


word 

word 

word 
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porta 

K- 

* 

* 

* 

# 

* 

* 

# 

* 


equ 

14 


port 

a - outputs 

all ! 

dO - 

side select 


dl - 

drive select 

0 

d2 “ 

drive select 

1 

d3 - 

rts for rs-232 

d4 - 

dtr for rs-232 

d5 - 

centronics strobe 

d6 - 

general purpose output 

d7 - 

unassigned output 


portb eq.u 


15 < parallel i/o port 




* * 

* 68901 multifunction peripheral chip equates # 

* (interrupt control leri timers. serial i/o) * 

* * 


»**»*##*»****#**•»•**«•*■«■*»*##******•«•*#■»•****»*»#•»*»**#*■«.**#*****#**#»***##*# 
* register and base addresses 

mfp equ ♦fffffaOl ; base address. +1 offset !!!!!!!! 


* 

system 

interrupt regis' 

ter offsets 


gpip 

equ 

0 


{general purpose i/o 

aer 

equ 

2 


{active edg 

le register 

ddr 

equ 

4 


{data d irec 

tion register 

i era 

equ 

6 


{ interr up t 

enable register a 

ier b 

equ 

8 


{ interrupt 

enable register b 

ipra 

equ 

10 


{ interrupt 

pending register a 

i pr b 

equ 

12 


{ interrupt 

pending register b 

i sra 

equ 

14 


{ interrupt 

in-service register 

i srb 

equ 

16 


{ interrupt 

in-service register 

imra 

equ 

18 


{ interrupt 

mask register a 

imr b 

equ 

20 


{ interrupt 

mask register b 

vr 

equ 

22 


{ vector r eg 

1 i ster 

* 

system 

timer registers 

offsets 



tacr 

equ 

24 


{timer a control register 

tbcr 

equ 

26 


{timer b control register 

tcdcr 

equ 

28 


{ timer c ar 

id d control register 

tadr 

equ 

30 


{ timer a da 

ita register 

tbdr 

equ 

32 


i timer b da 

ita register 

tcdr 

equ 

34 


{timer c data register 

tddr 

equ 

36 


{ timer d da 

ita register 

* 

rs232/r 

s422/async /sync 

ser ial 

i/o registers 

1 offsets 

scr 

equ 

38 


{ sync chara 

icter register 


9Ci 


\J U J. 
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ucr 

equ 

40 

i 5 £ T' u D n 't- i ' O .i 

T 

eg i ster 

r sr 

equ 

42 

jT??ce;iver s tat 

US 

register 

tsr 

equ 

44 

i '^jT'ansmi tt s 

4- 

tf cJ 

tu 5 register 

udr 

equ 

46 

data T-8 

S i 

ster 


-a- 

non-memory oriented equates for 

the T'52wk 

port and timers 

c tr 1 5 

equ 

$13 

; control 


ctr Iq 

equ 

$11 

; c 0 n t r o 1 


X of f 

equ 

$13 



xon 

equ 

$11 


indicate xon/xoff protocol 

X onof f 

equ 

1 

j u 5 e d t D 

* 

timer 

relative locations 



atimer 

equ 

0 



btimer 

equ 

1 



c timer 

equ 

2 



d t imer 

equ 

3 






* 

« 

« 

* 

« 

* 

* 

« 

* 

* 

* 

« 

* 

« 

* 


last modified 
created 9/04/84 
by david b 


9/17/84 
g etr e u 


the follouing is the acia definitions for the keyboard 
and midi interfacing. the baud rate for the keyboard acia is 
an amazing 7812. 5> a new exciting industrial standard. 
anyuays< the appropriate chip setting for this acia is /64j 
while that of the midi interface is /16. it's baud rate is an 
amazing 31250 j another new exciting industrial standard. the 
500 khz signal to the acia comes off of the glue chip to both 
the keyboard and midi acia tx/rx clocks. 


* 

* 

« 

* 

* 

* 

# 

* 

* 

* 




keyboard equ SfffffcOO ; keyboard acia address base 

midi equ $fffffc04 jmidi acia address base 

# register offsets for acias' 

comstat equ O i command/status registers 

iodata equ 2 < keyboard data register 


*********##*■»■•»••»■«■■»■**•»■**■»•-»■»**«•■»•*■•«■■»• **■«•*****■>*•* **•»■*■ *****■»••*<■■•*■ ^^ *** *■•<■*** ■**••*••******* * 
» ascii character definitions * 


nu 1 

eq^u 

$00 

soh 

equ 

$01 

stx 

equ 

$02 


70 a 



Jul 


9 12:58 1985 usa. s Page 6 


et X 

equ 

$03 


eot 

equ 

$04 


enq 

equ 

$05 


ack 

equ 

$06 


bel 

equ 

$07 


bs 

equ 

$08 


ht 

equ 

$09 


If 

equ 

$0a 


vt 

equ 

$0b 


f f 

equ 

$0c 


cr 

equ 

$0d 


so 

equ 

$0e 


s i 

equ 

$0f 


die 

equ 

$10 


del 

equ 

$11 


dc2 

equ 

$12 


dc3 

equ 

$13 


dc4 

equ 

$14 


nak 

equ 

$15 


syn 

equ 

$16 


etb 

equ 

$17 


can 

equ 

$18 


em 

equ 

$19 


eof 

equ 

$la 

; really 'sub in ANSI ascii 

esc 

equ 

$lb 


fs 

equ 

$lc 


gs 

equ 

$ld 


rs 

equ 

$le 


us 

equ 

$if 


spe 

equ 

$20 


del 

equ 

$7f 


*■«■*#•»******#*•■«■«■*«■■»**■»**•»•**«■■»•■»*«■•«■**■*************************************** 


exception vector 

assignment table equates and functions * 

■»■*»«•***■«■**■«■■»■*******#***■»*•«■***#***#•«■*****♦******##**■*•***■****************** 

evsetsp 

equ 

$00 

j pouei — on reset supervisor stack pointer 

evsetpc 

equ 

$04 

; power— on reset initial program counter 

buserr 

equ 

$08 

i bus error 

adr err 

equ 

$0C 

i address error 

i 1 1 ins 

equ 

$10 

(illegal instruction 

z erod i V 

equ 

$14 

i zero divide 

ch k inst 

equ 

$18 

;chk instruction 

trapvf 

equ 

$1C 

; trap on overflow 

pr ivldg 

equ 

$20 

ipriviledged instruction 

trace 

equ 

$24 

i trace mode 

linlOlO 

equ 

$28 

i line 1010 emulator 

linllll 

equ 

$2C 

(line 1111 emulator 

uninit 

equ 

$3C 

(-uninitialized interrupt vector 

spurint 

equ 

$60 

(• spurious interrupt 

hb lank 

equ 

$68 

(horizontal blank interrupt 

vb lank 

equ 

$70 

(Vertical blank interrupt 

trapO 

equ 

$80 

(• trap instruction 0 

trap 1 

equ 

$84 

( trap instruction 1 

trap2 

equ 

$88 

( trap instruction 2 

trap3 

equ 

$8C 

( trap instruction 3 
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trap4 

equ 

*90 

/ 

trap 

instruction 

4 

traps 

equ 

*94 

i 

trap 

instruction 

5 

trap6 

equ 

*98 

i 

trap 

instruc t i on 

7 

trap7 

equ 

*9C 

i 

trap 

instruct i on 

7 

traps 

equ 

*A0 

i 

trap 

instruction 

8 

trap9 

equ 

*A4 

i 

trap 

instruct i on 

9 

trap 10 

equ 

*A8 

i 

trap 

instruction 

10 

trap 1 1 

equ 

*AC 

i 

trap 

instruction 

11 

trap 12 

equ 

*B0 

i 

trap 

instruct i on 

12 

trap 13 

equ 

*B4 

i 

trap 

instruction 

13 

trap 14 

equ 

*B8 

J 

trap 

instruct! on 

14 

traplS 

equ 

*BC 

i 

trap 

instruction 

15 


**#•»****■»•»•»■ •»•»•»****#*#•«•■«■**■«• ■»■■»•*•«•#»*»■«■***•«■*■»**■«■**■«•**«***#*****•«■ ■»”»*•«■»*»#*■»■«** 


* 

interrupt 

priority table 




* 

*•»■»*■»■******#■»•****#■«■*#**•»•*•«•#«■*■»**■»•****»*■»•«■**•»*■»******•»■**#**********«■«■*•«•#** 

* 






* 

« 

priori ty 

vector 


description 


•» 















* 

0 louj 

00_0100 

* 

centronics busy 

iO 

* 

* 

1 

00 0104 


data carrier detect 

il 


« 

2 

oo_oioa 

« 

c leal — to-send 

i2 


« 

3 

00_010c 


gpu bit done 

i3 

* 

» 

4 

00 0110 


baud rate generator 

(d) 

* 

« 

5 

00 0114 

* 

system timer 

(c) 

* 

« 

6 

00 0118 

* 

midi/keyboard acia 

i4 

* 

« 

7 

00 011c 


disk dma 

i5 

* 

* 

8 

00 0120 


horizontal blank counter 

(b ) 

* 


9 

00 0124 

* 

tx error 


* 

* 

10 

00 0128 

* 

tx buffer empty 


« 

* 

11 

00_012c 


receive error 


* 

* 

12 

00_0130 

* 

receive buffer full 


* 

« 

13 

00 0134 


user/appl ication timer 

(a ) 

* 

* 

14 

00 0138 


ringer indicator 

i6 

* 

« 

15 high 

00 013c 


monochrome detect 

i7 

* 


•»********#***#****-»*<H(-*****«"JH{"«-tHt-**-JHH{"JH«"«-***##*-»*»**#*-«-##*#**#**#****-tHHt* 


prt int 

equ 

*100 

dcd232 

equ 

*104 

cts232 

equ 

*108 

b 1 td on 

equ 

*10C 

baudr g 

equ 

*110 

unused 

equ 

*114 

mi d k ey 

equ 

*118 

d s k dma 

equ 

*110 

hb Inkc 

equ 

*120 

txderr 

equ 

*124 

txbuf e 

equ 

*128 

r X d err 

equ 

*120 

r X b uf e 

equ 

*130 

sy sc 1 k 

equ 

*134 

rng232 

equ 

*138 

mon i tr 

equ 

*130 


i centronics busy 
; dcd rs-232 interr 
i cts rs-232 interr 
/graphics bit done 
; baud rate generat 
i system clock inte 
/ mi d i / k ey b oar d int 
/disk dma interrup 
/horizontal blank 
/transmitter error 
/transmitter buffe 
/receiver error in 
i receiver buffer f 
/ free. . . free. . . fre 
;ring indicator rs 
; monochrome monito 



(iO> 

upt vector 

(il) 

upt vector 

(i2) 

interrupt 

( i3) 

or interrupt 

timer 

rr up t 

timer 

errup t 

(i4> 

t 

( i5) 

counter 

timer 

interrupt 


r empty interrupt 

terrup t 


ull interrupt 


e, . . 

timer 

-232 

(i6) 

r detect 

(i7) 


90 ^ 
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* operating system memory space * 

* r s-232/mi d i / k ey b oar d offset equates for their i/o buffer records 

» 


ibuf ptr 

equ 

0 

i input buffer location pointer 



i b uf 5 i z 

equ 

4 

i maximum size of this buffer 



i b uf h ead 

equ 

6 

i relative pointer to next byte to be taken 

from 

* 



i th i s buffer 



ibuf tai 1 

equ 

8 

i relative pointer to next location available 

to 

* 



insert a neui byte 



ibuf loui 

equ 

10 

■amount of space in buffer before an "xon" 

may 

* 



be sent to restore normal use of buffer. 



i b uf h ig h 

equ 

12 

amount of space used in buffer that trigger 

'5 

* 



■the sending of a "xoff" signal to the host 



obuf ptr 

equ 

14 

■buffer location pointer 



obuf si z 

equ 

18 

imaximum size of this buffer 



ob uf h ead 

equ 

20 

(relative pointer to next byte to be taken 

from 




(this buffer 



ob uf ta i 1 

equ 

22 

relative pointer to next location available 

to 

* 



■insert a new byte 



ob uf 1 oil) 

equ 

24 

amount of space in buffer before an "xon" 

may 

* 



be sent to restore normal use of buffer. 



obuf h igh 

equ 

26 

amount of space used in buffer that trigger 

's 




the sending of a "xoff" signal to the host 



status 

equ 

28 

copy of midi acia Status 



rsrby te 

equ 

28 

copy of rs-232 receiver status byte 



tsrby te 

equ 

29 

copy of rs~232 transmitter status byte 



r xof f 

equ 

30 

rs-232 receiver xoff flag 



txoff 

equ 

31 

rs-232 transmitter xoff flag 



rsmode 

equ 

32 

rs-232 control mode 



. b 55 







r insi ze 
r outs i z e 

equ 

equ 

^100 (these are size equates> 

*100 (these are size equates^ 

not 

not 

location 

location 

r i buffer 
r ob uf f er 

ds. b 
ds. b 

r insize (rs-232 input buffer 

routsize (rs-232 output buffer 



k insi ze 

equ 

*80 



k i b uf f er 

ds. b 

k insize ( keyboard input buffer 



minsi ze 

equ 

*80 



mibuf f er 

ds. b 

minsize (midi input buffer 



* 

* mf p 

* 

rs232 port 

routines variable space 




905 


r i b uf p tr 


ds. 1 


1 
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ribuf si z 

d s. uj 

i 

r ibuf head 

ds. UJ 

1 

r ibuf tai 1 

d s. u) 

1 

r i b uf 1 o(u 

ds. ut 

1 

ribufhigh 

ds. UJ 

1 

robuf ptr 

ds. 1 

1 

r ob uf s i 2 

d s. UJ 

1 

rob uf head 

d s. UJ 

1 

robuf tail 

ds. UJ 

1 

r ob uf 1 oui 

d s. UJ 

1 

robuf high 

ds. UJ 

1 

rr srb yte 

ds. b 

1 

rtsrbyte 

ds. b 

1 

rr xof f 

ds. b 

1 

rtxoff 

ds. b 

1 

rrsmode 

ds. b 

2 

rbufrec 

equ 

ribuf ptr 


* 

* keyboard 

* 

rs232 

port routines variable space 

k ibuf ptr 

ds. 1 

1 

kibuf si z 

ds. taJ 

1 

k ibuf head 

ds. UJ 

1 

kibuftail 

ds. UJ 

1 

k ibuf loui 

ds. UJ 

1 

kibuf high 

ds. UJ 

1 

kbuf rec 

equ 

k ibuf ptr 


* 



* midi 

« 

rs232 port 

routines variable space 

mibuf ptr 

ds. 1 

1 

mibuf si z 

ds. UJ 

1 

mibuf head 

ds. UJ 

1 

mibuf tai 1 

ds. UJ 

1 

mibuf louj 

ds. UJ 

1 

mibufhigh 

d s. UJ 

1 

mbuf rec 

equ 

mi b uf p tr 


* Acia error handler 

vectors — init'ed to point to ■'rte'' unless 

* changed 

subsequent 

to boot-up 

mid ivec 

ds. 1 

1 

;midi interrupt handler vector 

vkbderr 

ds. 1 

1 

/keyboard error handler address 

vmiderr 

ds. 1 

1 

jmidi error handler address 

statintvec 

ds. 1 

1 

/general ikbd status record interrupt vector 

msintvec 

ds. 1 

1 

/■mouse interrupt vector 

elk intvec 

ds. 1 

1 

/ikbd real-time clock interrupt vector 

joy intvec 

ds. 1 

1 

/general joystick interrupt vector 
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# 

«• real-time clock command equates 

# 

settod equ *lb 

gettod equ $lc 

* 


» 

« 

kstate 

( ikbd ' 

s general 

state variable) values 

normal 

equ 

0 



statks 

equ 

1 



amouse 

equ 

2 



rmouse 

equ 

3 



clock 

equ 

4 



joyal 1 

equ 

5 



joyO 

equ 

6 



joyi 

equ 

7 



* 

* 

# 

array 

lengths 

for ifcbd 

subsystem records 

statdex 

equ 

7 



amd e x 

equ 

5 



rmdex 

equ 

3 



clkdex 

equ 

6 



joyadex 

equ 

2 



joy dex 

equ 

1 



kstate 


ds. b 

1 

j present state of ikbd reception routine 

k index 


ds. b 

1 

! index used to count down bytes left to 

# 




i receive for current state's record 

statrec 


d s. b 

statdex 


amr ec 


ds. b 

amdex 


mousebuf 

ds. b 

rmdex 


c 1 krec 


ds. b 

clkdex 


joyrec 


ds. b 

joyadex 


datetime 

ds. 1 

1 

i jdos variable 

neutime 


ds. 1 

1 

; jdos variable 

oc 1 krec 


ds. b 

clkdex 

i used to assemble and send a new t. o. d. record 

* 




1 to the ikbd 

on 

equ 

1 



off 

equ 

0 



kmbuf 


d s. b 

3 

i key-emulating mouse buffer 

bit assignments in 1 

kbshift 


KBRSH 

EQU 

0 


*rightshift 

KBLSH 

EQU 

1 


* left shift 

KBCTL 

EQU 

2 


* control key 

KB ALT 

EQU 

3 


* alternate key 

KBCL 

EQU 

4 


* caps lock 


9o-7 
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KBMRB EGU 

5 


* right mouse button 

( c Ir/h ome ) 


KBMLB EQU 

6 


left mouse button (insert) 


kbsh ift 

ds. b 

1 





initsi ze 

equ 

kbshift- 

k state-1 

; area 

to be inited to zero! 

skey tran 

ds. 1 

1 

i contains 

address for 

unshifted 

key translation 

skey sh if 

ds. 1 

1 

i contains 

address for 

shifted key translation 

skey c 1 

ds. 1 

1 

; c ontains 

address for 

cap s-1 oc k 

key translation 


* mouse init transfer string buffer 


transbuf ds. b 17 i temporary string buffer for mouse init's 


* keyrepeat variables 


t imerate 

equ 

200 

; timer c rate 

in Hz . 

key rep 

ds. b 

1 



k delay 1 

ds. b 

1 

i must start on 

ujord boundary 

k delay 2 

ds. b 

1 



cdelay 1 

ds. b 

1 

<must start on 

ujord boundary 

cdelay2 

ds. b 

1 



tde lay 1 

equ 

15 

> delay before 

key repeat engages 

tdelay2 

equ 

2 

; delay before 

key repeats after 

* 



; key repeat is 

activated 

* 

parallel timeout counter 


prt_to 

ds. 1 

1 



t c _r o t 

ds. ui 

1 

/divisor byte 

for timer c interrupt 

* 

« 

Dave Staugas ' 

Sound 

Driver variables 


"Jr 

cursnd 

ds. 1 

1 



timer 

ds. b 

1 



au xd 

ds. b 

1 




* 



printer 

configuration u/ord 

* 

it 

bits 6-15 not defined 

TT 

* 

bit 5 

printer uses (_FORMFEED /SINGLE SHEET) 


bit 4 

— port to send output to ( ATARI/EPSON) 


bit 3 

style of output ( _DRAFT/FINAL) 


bit 2 

type of printer (_DOT MATRIX/DAISY WHEEL) 

* 

bit 1 

type of ink ( MONOCHROME/COLDR ) 

JC 

bit 0 

manufacturer ( _ATAR I /EPSON COMPATIBLE) 


note all 

underscored settings are the default and are represented 

* 

by their 

c orresp ond i ng bit set to "0" 


90 % 
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pconf ig 


ds. u 1 


* 

» 


console and terminal enable flags 

bit 0 - keyclick enabled 

bit 1 - repeat key function enabled 

bit 2 - keyboard "''"g" bell feature enabled 


•»c onterm 


ds. b 1 


i nobj in landon's equates 


neuitod ds. b 1 


i handshaking 


flag for get time of 


day function 


page 

even 

text 

#**•»■#*•«■*•»*■«••«•##***•«■*■«■**•«•*«****•»*■»****•»••****■»**«**•»■»■*•«•*•»«■**•«•»«**■«•■**■«■******■»■•»• 
* * 


* 

cp/m-68k atari rbp bios 

* 


basic input/output subsystem 



copyright 1984j atari corporation 

« 

* 

all rights reserved. 

* 

« 

atari confidential 

* 



* 


* 


•» 

* convert 

ikbd real-time clock format to jdos format 

* 

« 


« 

««««»««««»«««««««««»«««»««««««««■«*«««#«««»»»««»««»#»««»««»««»*««*««««■«### 

jdostime 



lea 

$Oi a5 ; address pointer to address base 


lea 

clkrec (aS)» aO 


bsr 

bcdb in 


sub i . b 

#80> dO > adjust so that 1980 => 0 for time 

base 

move, b 

dO, d2 


asl. 1 

#4. d2 


bsr 

bcdb in 


add. b 

d0> d2 


asl. 1 

#5, d2 


bsr 

bcdbin 


add. b 

dO, d2 


asl. 1 

#5, d2 


bsr 

bcdbin 


add. b 

dO. d2 


asl. 1 

#6. d2 


bsr 

bcdbin 


add. b 

dO, d2 


asl. 1 

#5. d2 
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b sr 

b c d b i n 



1 sr . b 

do 

; adjust to provide two second increments. 


ad d . b 

dO, d2 

i... another @ ! #%©#$% kludge^ thank you ! 


move. 1 

d2j datetime <a5) 


move, b 
rts 

#$Oi newtod (a5 ) 

i clear handshaking flag 





* 

* 


get time of day 

# 




* 

« 

entry : 



* 



* 

■» 

long 

gettime< ) 

* 

» 



# 

*•»■*#■»■**•»•*****#****#*♦»###•»•*■«■*»#*******»**#**»*##*****#********#»**####*** 


. globl 

gettime 


gettime 

move, b 

#♦-!< newtod <a5) 

; set handshaking flag 


move, b 

#gettodf d 1 

} send get time of day command 


bsr 

ikbdput 

g tod 1 

tst. b 

newtod (a5) 

i see if the new time of day is in 


bne. b 

gtod 1 


move. 1 
rts 

datetime(a5>/ dO 



« 



* 

« 


set time of day 

* 

* 



* 

« 

entry : 


* 

« 



* 

* 

void 

settime (newtime ) 

* 

* 

long 

newtime 

* 


****»•»******»#***»#»***#*»#«**■».#*#***#**»######**####**#**#*#***#*##*#### 

. g 1 ob 1 settime 


settime 


move. 1 4 ( sp ) » newt ime (a5 ) 


,*•»■•«•»****■«•«•**■»•#■»■■»•*■»■»*»**«.#**#*»#******»*****«.#***#»»************#»*##»#*## 
* * 

* convert jdos format to ikbd real-time clock format * 

* * 
*#•»#*■«■•«•■»■*##•«■#■«■»■»•*#•»•»**-»■****«**#*«•«.********##*«**##*##*****####******###*# 


. globl ikbdtime 


i kbdtime 


lea oc 1 krec+c 1 kdex, aO ; point to end of output clock buffer 

move. 1 newt ime (a5 ) / d2 i get time to convert 

move. b d2< dO ;make a copy for conversion routine 


9/<D 
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and i . b 
asl. b 
b sr . b 
1 5r . 1 

#7.00011111. dO 
dO 

b i ri b c d 
#5. d2 

imask off for pertinent information 
; correct for the two second kludge 
i c onver t 

.shift to next information field 

move, b 
and i . b 
bsr. b 
Isr. 1 

d2. dO 

#7.00111111. dO 
b inbed 
#1^. d2 

.make a copy for conversion routine 
;mask off for pertinent information 
i c onver t 

i shift to next information field 

move, b 
and i . b 
bsr. b 
1 sr . 1 

d2. dO 

#7.00011111. dO 
b inbed 
#5, d2 

.make a copy for conversion routine 
imask off for pertinent information 
i convert 

; shift to next information field 

move, b 
and i . b 
bsr. b 
Isr. 1 

d2, dO 

#7.00011111. dO 
b inb c d 
#5. d2 

imake a copy for conversion routine 
.mask off for pertinent information 
. convert 

i shift to next information field 

move, b 
and i . b 
bsr. b 
Isr. 1 

d2. dO 

#7.00001111. dO 
b inbed 
#4. d2 

imake a copy for conversion routine 
imask off for pertinent information 
i convert 

.shift to next information field 

move, b 
and i . b 
bsr. b 
addi. b 

d2, dO 

#7.01111111. dO 
b inbed 
#$80. (aO) 

imake a copy for conversion routine 
imask off for pertinent information 
i convert 

ire-correct for ikbd format from jdos kludge 

move, b 

bsr 

moveq 

lea 

bsr 

move, b 
bsr 
r ts 

#settod« d 1 
i kbdput 
#clkdex-l. d3 
oc 1 krec. a2 
i kbdstr 
#gettod> d 1 
i kbdput 

i send set time-of-day command to ikbd 
i use "inner circle" entry point! 
i prepare to send neu parameters 
i point to parameter list to be sent 
.again, use an "inner circle" entry point! 
i send get time-of— day command to ikbd 
i use "inner circle" entry point! 


#•»■#•»*****#■«•**#«■■»•#**•»**•»■«••«•*#«■«•**«•**«*■«■*•«■«■■«■***■»*■»**•»■■*«■■»■»**■»■»***■»*******■»*■»* 


* 

* 

* 

* 

« 


entry : 


convert a byte from binary to bed format 
dO. 1 - value 


* 

* 

* 


•»«•###*•«•***##**•»■«•■«•**»**##■»#******■»*****♦*#■»*##*■»■»***■»**■»***«•****■»********♦ 


. g lob 1 b inbed 


b inbed 

moveq 

#0. dl 


moveq 

#10. d3 

bin2 

sub. b 

d3. dO 


bmi . b 

b ini 


addq. b 

#1. dl 


bra. b 

b in2 


9 // 


9 12:58 1985 usa. s Page 15 


Jul 


b in 1 


addi. b #10< dO 
asl . b #4) d 1 

add - ^ dl> dO 

move, b dO» — (aO) 
rts 


i transfer to output clock buffer 




* * 

* convert a byte from bed format to binary * 

* * 

* entry: aO;, 1 - pointer to byte * 

* * 


•»*■»*•»*#•»***•»•»**■»■»***•»*•»•»*■»«*•»***»**•»***«■»**■»■»*•»•»•»■»*■»■«■****■»**■»■»■*•**■«■*•«•*■*■*■** 



. globl 

bedbin 


bedbin 





moveq 

#«0. dO 



move, b 

(aO)« dO 

i get bed byte 


Isr. b 

#«4. dO 

; dump loti) nibble 


Isl. b 

dO 

{generate (yl shl 1) 


move, b 

dO. dl 

icopy (yl shl 1) 


asl. b 

#2. dO 

; generate (yl shl 3) 


add. b 

dl> dO 

{generate (yl shl 3) + (yl shl 1) 


move, b 

(aO)+, dl 

{grab bed again for low nibble 


and i . u 

#«f. dl 

{mask off for low nibble 


add. uj 

dl, dO 

{generate completed binary version of bed 


rts 



*■» •***•*****«*«•#*****#***«*•»***■******■»*****#**•»*■»******•»*********•»*«******* 

* 



* 

« 


midi output 

status * 

-» 



* 

« 

entry : 


« 

* 



» 

« 

uior d 

midiost< ) 

« 

* 



* 

* 

returns 

true/okay to 

send = -1, false/not ready =0 * 

» 



« 



. globl 

mid iost 


mid iost 




‘ 

moveq 

#«-l, dO 

{ pre-set to true 


move, b 

comstat+mid i 

, d2 {grab midi status 


btst. 1 

#$1, d2 



bne. b 

midiox 

{ status okay to send 


moveq 

#$0, dO 

{ status not okay 

midiox 

rts 



»***#**»■»**#»*#«"»•*****#*«•********«•****■»**#■«■****#*■»■*****«■**«•«■■»•»***•**«■»*■»*■» 







lurite char to midi port * 




» 


entry ; 


# 
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* * 


# 

VO i d 

mid iwc ( c hr ) 

* 


word 

c hr 

* 

* 



* 



. g lob 1 

mi d iwc 


mi d iuic 

move, w 

6(sp ), dl 


mid iput 

1 ea 

mi d i > a 1 i 

point to midi register base 

midputl 

move, b 

comstat<al >j d2 > 

grab midi status 


btst. 1 

#$1. d2 



beq. b 

midputl 



move, b 

dlj iodata(al ) 



rts 

i 

done for now 

*■»•*«•*«•*•«■■»•******•»■*•»■****#********•»■*«■**•»■•»•«■****«•*■«•**•«•*#•»«•*■»■»■**■»■*****■«•***•«•*■»»* 

* 






put string to midi routine * 

« 



« 

* 

entry : 



* 




« 

void 

midiws(size> ptr) 


«■ 

word 

size 

« 


long 

ptr 

* 

* 



« 



. globl 

mid iws 



midiujs moveq. #$Oi d3 

move, ui 4( sp ) » d3 
move. 1 6< sp ) < a2 

midpl move, b (a2)-*->dl 
bsr. b mid iput 
dbra d3i midpl 
rts 

*##■«•**#*■«■«•*«•**■»•*■«•*******«■«■***•«■■«•***•«•**■**■«■**■»********■«•****■»*■»*■»************ 


» * 

* get midi receiver buffer status * 

* * 

* entry: * 

* * 

* (uord midstat() * 

» * 

■» -1 signifies true/okay 0 - signifies false/no characters * 

* * 


. glob 1 midstat 

midstat lea mbufrec (a5>< aO 

lea mid i> al 

moveq, #*-li dO 




i point to midi i/o bufrec 
i point to midi register base 
i set result to true 


i get size of string buffer — 1 
•get string address 
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mid istl 


1 ea 
1 ea 

cmpm. ui 
bne. b 
moveq 
r ts 


i b uf h ead ( aO ) , a2 
ibuf tai 1 (aO) . a3 
(a3)+, (a2)+ 
m i d i s 1 1 
#*0, dO 


i atomic buffer empty test 
; branch if not» assume dO 
i set result to false 


i s 


"c Ir. uj" ^ed 


#*>»■*■»*■«■**«■*•***#*■«■■«•«•*■»■**»***■»■*#********************■»•■•**■*****♦*************** 


getchar routine for midi port 


this routine transfers characters from a 
filled by an automatic interrupt routine, 
routine handles the actual transfer of the 
i/o port. 


input queue that 
the interrupt 
character from 


entry ; 
long 


mid in( ) 


1 s 


the 


long data returned represents upper three bytes of time stamp 
and least significant byte as data 


■» 

* 

* 

* 

* 

* 

* 

* 

* 

* 


■«-*******-**-»**********************************-i*'*************************** 


.globl midin 


mid in 




assume that aO/al are inited by the midstat call for the rest of 
this routine. 


bsr. b 

midstat 

tst. UI 

dO 

beq. b 

mid in 

move 

sr, - ( sp ) 

or i 

#*700, sr 

move. UI 

ibuf head (aO) , d 1 

cmp . UI 

i b uf ta i 1 ( aO ) , d 1 

beq. b 

muii2 


i see if key pressed 

;iuait until byte comes 
i protect this upcoming 

i get current head 
i head=tai 1? 

> yes 


in 

test 

offset from buffer 


pointer 


•» check for uirap of pointer 


mtui 1 


mu>i2 


addq. ui 

#1, dl 

i i=h+l 

cmp . UI 

ibufsiz( aO ) , d 1 

;? i>= current bufsiz? 

bcs. b 

muii 1 

; no. . . 

moveq 

#*0, dl 

i uirap p o inter 

move, 1 

i b uf p tr ( aO ) , a 1 

i get base address of buffer 

move, b 

0(al, dl ), dO 

i get character 

move. UI 

move 

rts 

dl, ibufhead( aO > 
(sp )+, sr 

; store neui head pointer to buffer 


#»■»#■»•»*■«•■«•#**•»**#*#*#*»**#*•»*************•»**************»»**************** 
# * 





Jui 9 12:59 1985 usa. s Page 18 


* parallel i/o port service routine * 

* * 

this set of routines is for general parallel i/o # 

* * 

* entry to listout * 

* -H- 

* entry to listin * 

* # 

* exit from listin # 





. g lob 1 

_1 stout 


_1 stout 

move. 1 
sub. 1 
cmp i. 1 
bcs. b 

_h2_200(a5), d2 
prt_to (a5) . d2 
#5*200. d2 
1 p err 

i d2 = hz_200 — prt_to 
i (compute time since last timeout) 
i do “fake" timeout if uie timed out uiithin 
. the last five seconds 

ptO 

move. 1 
bsr. b 
tst. ( 1 / 
bne. b 

_hz_200(a5), d2 
1 stostat 
dO 
ptl 

; d2 = starting time for this char 
; go get parallel port status 
.... and check for high (busy) 

. port is ready — print the char 


move. 1 
sub. 1 
cmp i. 1 
bit. b 

hz 200(a5>, d3 
d2. d3 

#30*200. d3 
ptO 

; d3 = hz_200 - d2 

i check for 30 second delta 
i continue if no timeout 

Iperr 

moveq 
move. 1 
rts 

#♦0, dO 

_h z _200 < a 5 ) . p r t. 

i return value of 0 indicates timeout 
_to(a5) i record time of last timeout 

ptl 

move, ui 

ori. UI 

moveq 

bsr 

ori. b 

moveq 

bsr 

move. UI 

sr. d3 
#*700. sr 
#mi xer. d 1 
g i entry 
#*80. dO 
#mi xer+*80. d 1 
g ientry 
d3. sr 

.save status register 

i protect upcoming switching of the port setting 
i get current io enable register contents 

i set port b for output 
.set to write to io enable 

.restore status register 


move. UI 

moveq 

bsr 

6(sp).d0 
#portb+*80. d 1 
g i entry 

i retrieve byte to be sent and... 
jwrite out byte to parallel port 

lexit 

bsr. b 
b sr . b 
moveq 
rts 

strobeon 
strobeof f 
#*-l. dO 

> set dO=-l for good transf er status 

strobeof f 

moveq 

bra 

#7.00100000, d2 
onb it 

; set strobe off 
; go set it ! ! 
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strobeon 


moveq 

#7,11011111. d2 

; set 

strobe on 

bra 

offbit 

i set 

strobe now 



. g 1 ob 1 

_lstin 


_lstin 

moveq 

#mi xer. d 1 

; get cuT'rent io enable register contents 


b sr 

g i entry 



and i . b 

#*7f . dO 

.set port b for input 


moveq 

#mi X er+$80. d 1 

j set to write to io enable 


b sr 

g i entry 



b sr , b 

strobeof f 

; busy off ! 

Istibusy 




bsr. b 

Istostat 

j go get parallel port status 


tst. Ui 

dO 

> . . . and check for high (busy) 


bne. b 

Istibusy 

> 1 oop till high... 


bsr. b 

strobeon 



moveq 

#portb. d 1 

iinit to use gientry routine to read 


bra 

g ientry 

.now get the byte from the parallel port 

« 



i dO. 1 contains the byte of data from the 

* 

the 'bra' is implied 

rts from this routine 

**-»*********-»HHf-*********«- «■*#*** * »*****»»•«••»■ «•*■»*#■»•*■»***#*****»**■»■*•»*■»*»**■»•«•# 

« 






parallel port 

status routine * 

* 



* 



. g lob 1 

_lstostat 


_lstostat 




1 ea 

mf p. aO 

.point to mfp register base 


moveq 

#*-l. dO 

i pre-init to true (parallel port ready) 


btst. b 

#^0. gp ip (aO) 



beq. b 

Istl 



moveq 

#♦0. dO 

.parallel port busy 

Istl 

r ts 




* * 

* auxiliary port input status routine * 

■X-*-lHHm"«-)HH(-«**«")HHi-******#*********«******-tHH»##***-»*-iHI-**-»-)HH*"»#*-»-##***#*«-*** 


. g 1 ob 1 au X i stat 


au X i stat 

lea 

moveq, 

1 ea 
lea 

cmpm. u 
bne. b 
moveq 


rbufrec (a5 ) , aO 
#«-l. dO 

ibufhead (aO)j a2 
ibuf tail (aO)i a3 
(a3)+, (a2)+ 
au X i st 1 
#$0. dO 


; point to 
.set result 

; atomic buffer 
. set result to 


buffer record 
true 

empty test 
false 


r 5-232 
to 
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auxistl rts 


* 

* 

* 


auxiliary input routine 


# 

* 


auxin bsr. t) auxistat ; see if key pressed 

iuait until key pressed 
i clear out the high byte 


. globl 

auxin 

bsr. b 

aux istat 

tst. UI 

dO 

beq. b 

auxin 

bsr 

rs232get 

andi. ui 

#^f f. do 

rts 



* auxiliary port output status routine * 

* * 

.globl _auxostat 


_auxostat 

lea 
moveq 
move, u 
b sr 
cmp. Ill 
bne. b 
moveq 

auxostl rts 


rbufrec <a5)i aO i point to rs-232 buffer record 
#♦-1* dO i set result to true 

obuf tai 1 (aO) 1 d2 ; get current tail pointer offset from buffer 
uirapout } check for wrap of pointer 

obuf head <aO) > d2 i head-tail? 

auxostl i no. .. there is buffer space left! 

#*0» dO j set result to false 




* auxiliary output routine * 

* * 

. globl _auxout 


_auxout move, ui 6(sp)«dl 
bsr rs232put 

bcs. b _auxout 
rts 


i get data 

lexit via rs-232 output routine 




* 

« 

* 

* 

« 

-» 

* 


entry : 
word 


ikbd output status 


i kbdost < } 


* 

« 

* 

* 

« 

« 


^/7 
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* returns true/okay to send — ~h false/not ready — 0 * 

* ^ 


. g lob 1 i kbdost 

i kb dost 

moveq #$— 1> dO ; pre-set to true 

move, b c omstat+k ey b oard< d2 ; grab ikbd status 

fatst. 1 #»li d2 

bne. b ikbdox ; status okay to send 

moveq ##0. dO ; status not okay 

ikbdox rts 

■ft#**#***#*******#******************************************************'**''”' 
* * 
* write char to ikbd port * 


* 

M. 

entry : 


* 

* 

TT 

» 

void 

ikbdwc < chr ) 

# 

« 

word 

chr 

* 

* 



* 

* 



* 

•ft************************************************************************ 


. g 1 ob 1 

ikbdwc 


i kbduic 

move, w 

6( sp ) < d 1 

register base 

ikbdput 

lea 

keyboard>al i point to ikbd 

ikputl 

move, b 

comstat (al ) , d2 i grab keyboard 

status 

btst. 1 

#«1. d2 



beq. b 

ikputl 



move, b 

dll iodata(al ) 



rts 

i done for now 



«• 

« 


put string to ikbd routine 

* 

» 

« 

* 

entry : 


# 

* 

« 

void 

i kbdws ( s i zei p tr > 

« 

* 

word 

size 

* 

« 

1 ong 

p tr 


« 


* 

»*####****#*#**#»«*####***«••»•■»■»■»*»*■»•**«•«•***■»■«•*-«•#*■»■«■**•»•**■«•*****■«■*********** 


. g 1 ob 1 

i kbdws 


i k b dws 

moveq 

#«0, d3 



move, w 

4(sp )i d3 



move. 1 

6( sp ) 1 a2 


i kbdstr 

move, b 

(a2)+i dl 



bsr. b 

ikbdput 



9 /^ 



■Jul 9 12; 58 1985 usa. s Page 22 


constat 


constl 


conin 


ciiji 1 


ciui2 


c onoutst 


r ingbel 


rgbel rts 


dfa ra 
rts 

d3i i k b d s tr 


. g 1 ob 1 

constat 


1 ea 

k b uf rec ( a5 ) i aO 

i point to ikbd buffer record 

moveq 

#«-l,dO 

; set result to true 

1 ea 

ibufhead (aO)> a2 


1 ea 

i buf tai 1 (aO> . a3 


cmpm. uj 

<a3)+, (a2)+ 

i atomic buffer empty test 

bne. b 

constl 

i branch if not, assume dO is "clr. uj"'ed 

moveq 

rts 

#«0, dO 

i set result to false 

. globl 

conin 


bsr. b 

constat 

i see if key pressed 

tst. UJ 

dO 


beq. b 

conin 

jujait until key pressed 

move 

sri -( sp ) 

i protect this upcoming test 

or i 

#*700, sr 


move. UJ 

ibufhead (aO), dl 

i get current head pointer offset from buffer 

cmp. UJ 

ibuftail <aO), dl 

; head=tail? 

beq. b 

cuji2 

i yes 

check for ujrap of pointer 

addq. uj 

#2, dl 

; i=h+2 

cmp . UJ 

ibuf si z <aO) , d 1 

i ? i>= current bufsiz? 

bcs. b 

cuji 1 

i no. . . 

moveq 

#*0, d 1 

i ujrap pointer 

move. 1 

ibufptr (aO), al 

; get base address of buffer 

moveq 

#*0, dO 

; clear out for jdos format 

move. UJ 

0(ai, dl }. dO 

; get character 

move. UJ 

d 1 , ibufhead ( aO ) 

i store new head pointer to buffer record 

Isl. 1 

#*8. dO 

i shift the scancode only to the low byte 

1 sr . UJ 

#*8, dO 

i high word location for jdos 

move 

rts 

( sp )+, sr 


.globl 

c onoutst 


moveq 

#-l, dO 


rts 


; jdos requirement 

. globl 

r ingbel 


btst. b 

#*2, conterm<a5) 


beq. b 

rgbel 


move. 1 

#bellsnd> cursnd(a5) 

move, b 
rts 

#0, timer (a5) 



9^9 
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«•****«•******#«■■«•**•«■*■»■«■*■«• «■•»■****•***■'*•**■“•**********■'•■ 
* * 

* end of gemdos bios portion * 

* * 

* device driver and auxiliary routines follow * 

* * 
■IHHHHt***********************************-^******************************** 


Lfea COUNTRY-USA 


key tran; 


dc . b 

*00, *lb, 

dc . b 

'7', '8'. 

dc. b 

'q ', 'w ', 

dc. b 

'o', 'p ', 

dc. b 

'd ', 'f '. 

dc. b 

*27, '' ', 

dc. b 

'b '. 'n ', 

dc. b 

*00, *20. 

dc. b 

*00, *00, 

dc. b 

*00, *00, 

dc . b 

*00, *00, 

dc. b 

*00, *00, 

dc. b 

♦00, *00, 

dc. b 

'8', '9', 

dc. b 

'O', '. 

dc. b 

*00, *00, 


keysh if : 


dc. b 

*00, *lb. 

dc . b 


dc. b 

'Q', 'W', 

dc. b 

'O', 'P', 

dc. b 

'D', 'F', 

dc. b 

/ II / / / 

dc. b 

'B', 'N', 

dc. b 

*00, *20, 

dc. b 

*00, *00, 

dc . b 

*38, *00, 

dc. b 

*32, *00, 

dc. b 

*00, *00, 

dc. b 

*00, *00, 

dc. b 

'8', '9', 

d c . b 

'O', ', 

d c . b 

*00, *00, 


dc . b 

*00, 

*lb. 

dc. b 

'7', 

'8', 

dc. b 

'O', 

'W', 

dc. b 

'O', 

'P ', 

dc . b 

'D', 

'F', 


'1 ' 2 '. ' 3 ', ' 4 ', ' 5 ', ' 6 ' 

'9', 'O', '-', '='>*08. *09 

'e '. 'r '. 't ', 'y '. 'u '. 'i ' 

'C 'i '] '. *0D, *00. 'a', 's' 
'g ', 'h '. ' j '. 'k '. '1 '. 'i ' 

*00, '\ ', 'z '. 'x '. 'c ', 'v' 

'm', ', '. '. ' f ' , *00, *00 

*00, *00, *00, *00. *00, *00 

* 00 , * 00 , * 00 , * 00 , * 00 , *00 
'- ', * 00 , * 00 , * 00 , '+',*00 
*00, *7f . *00, *00, *00, *00 
* 00 , * 00 , * 00 , * 00 . * 00 , *00 
*00, ' ( ', ' ) ', '/ ', '7' 

'4', '5', '<b', '1 '. '2', '3' 
*0D, *00, *00, *00, *00, *00 
* 00 , * 00 , * 00 , * 00 . * 00 , *00 


' ! ', '*', '7.', 

' ( ', ' ) ', '+', *08, *09 

'E', 'R', 'T', 'Y', 'U', 'I ' 
'■C ', '> *0D, *00, 'A', 'B' 

'O', 'H', 'J', 'K', 'L', ': ' 
*00, ' ! ', 'Z', 'X', 'C', 'V' 
' M ', '<', '>', '?',* 00,*00 
*00, *00, *00, *00, *00, *00 

*00. *00, *00, *00, *00, *37 
*34, *00, *36, '+',*00 
*30, *7f , *00, *00, *00, *00 
*00, *00, *00, *00, *00, *00 
*00, ' ( ', ' ) ', '/ ', '7 ' 

'4', '5', '6'. '1 '. '2', '3' 
*0D, *00, *00, *00, *00, *00 
*00, *00, *00, *O0, *00, *00 


'1 ', '2', '3', '4', '5', '6' 
'9', 'O', '=',*08, *09 

'E', 'R ', 'T', 'Y'. 'U', 'I ' 
'C ', 'D ', *0D, *00, 'A', 'S' 
'O', 'H', 'J', 'K'. 'L'. ' 


9^t> 
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dc. b $27, ' ' $00, ' \ ^ 'Z', 'X', 'C', 'V' 

dc.b 'B', 'N', 'M', $00, $00 

dc. b $00, $20, $00, $00, $00. $00. $00, $00 

dc.b $00, $00, $0 l,. $00, $00, $00, $00, $00 

dc.b $00, $00, $00, $00, $00. $00 

dc.b $00, $00, $00, $7f, $00. $00, $00, $00 

dc.b $00, $00, $00. $00, $00, $00, $00. $00 

dc. b $00, $00. $00. '( ', ') '. '7' 

dc. b 'B'. '9', '4'. '5'. '6'. '1', '2'. '3' 

dc.b 'O'. $0D, $00, $00. $00. $00, $00 

dc.b $00, $00, $00, $00, $00. $00. $00, $00 

. endc 


ifeq COUNTRY-UK 


k eg tran 

dc. b $00. $lb, 

dc. b '7'. 'B', 

dc.b 'q ' , 'ui ' , 

dc.b 'a 'p 

dc.b 'd 'f'. 

dc.b $27. ' ' ', 

dc. b 'b 'n', 

dc.b $00, $20, 

dc.b $00, $00, 

dc.b $00, $00, 

dc.b $00, $00, 

dc.b $00, $00, 

dc.b $00, 

dc. b 'B', '9', 

dc. b 'O', '. ' , 

dc.b $00, $00. 


'1 ', '2' . '3', '4'. '5', '6' 
'9'. 'O'. $08. $09 

'e'. 'r', 't', 'y', 'u', 'i ' 

'C ', '3'. $0D. $00. 'a', 's' 
'g ', 'h ', ' j ', 'k ', '1 ', '; ' 

$00. 'z ', 'X ', 'c ', 'v' 

' m ', ', '. '. ', '/', $ 00 . $00 
$ 00 , $ 00 , $ 00 , $ 00 , $ 00 , $00 

$00. $00, $00. $00, $00, $00 
$ 00 , $ 00 . $ 00 , '+'. $00 
$00, $7f . $00. $00, $00, $00 
$00, $00, $00, $00. $00, $00 
$00. '( '. ') ', '/', '*', '7' 
'4', '5'. '6', '1 ', '2', '3' 
$0D, $00. $00, $00, $00, $00 
$00, $00, $00. $00, $00, $00 


dc.b $00, $lb, ' ! ', $9c, '$', ' 

dc.b $08. $09 

dc. b 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I' 

dc.b 'O', 'P'. $0D, $00, 'A', 'S' 

dc. b 'D'. 'F', 'G', 'H', 'J', 'K', 'L', ': ' 

dc. b '@'.$ff,$00. 'Z'. 'X', 'C', 'V' 

dc.b 'B ', 'N', 'M', '<', '>', '?', $00, $00 

dc.b $00, $20, $00, $00. $00, $00, $00, $00 

dc.b $00, $00. $00. $00, $00, $00, $00, $37 

dc.b $38. $00, $34, $00, $36, '+',$00 

dc.b $32, $00, $30, $7f , $00, $00, $00, $00 

dc.b $00, $00, $00, $00, $00, $00, $00, $00 

dc. b '! ', $00, $00, '( ', ') ', '/', '*', '7' 

dc. b '8', '9'. '4', '5', '6'. '1', '2'. '3' 

dc.b '0','.', $0D, $00, $00, $00, $00, $00 

dc.b $00, $00, $00, $00, $00, $00, $00, $00 


9 ^/ 
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dc. b $00, $ib, M '2', '3', '4', '5', '6' 
dc. b 'Q', '9', 'O'. '=',$08. $09 

dc. b 'Q', 'W'. 'E', 'R'. 'T'. 'Y'. 'U'. 'I' 

dc. b '□'> 'P '. 'C $0d, $00, 'A', 'S' 

dc. b 'D', 'F', 'G', 'H'. 'J', 'K', 'L', ' 

dc. b $27, '' ', $00. '#', 'Z', 'X', 'C', 'V' 

dc. b 'D', 'N', 'M', ', ', '. ', '/',$00, $00 
dc.b $00, $20, $00, $00, $00, $00. $00, $00 

dc.b $00. $00, $00, $00, $00. $00, $00, $00 

dc. b $00, $00, $00, $00, $00, '■*■', $00 

dc. b $00. $00. $00, $7f. $00. $00, $00, $00 

dc.b $00, $00, $00, $00, $00. $00. $00, $00 
dc. fa '\'. $00. $00, '< '. ') '. '/'. '*', '7' 

dc. b '&', '9', '4'. '5'. 'A'. '1 '. '2'. '3' 

dc.b 'O', '. ', $0D, $00, $00, $00. $00, $00 

dc.b $00, $00. $00, $00, $00, $00, $00, $00 


. endc 


ifeq COUNTRY-GERMANY 


key tran; 


key sh if : 


dc. b 

$00, 

$lb, '1 ' 

dc. b 

'7', 

'8', '9' 

dc. b 


'u ', ' e ' 

dc. b 

'o'. 

'p ', $81 

dc. b 

'd ', 

'f '. 'g ' 

dc. b 

$84, 

'#', $00 

dc. b 

'b '. 

'n'. 'm' 

dc. b 

$00, 

$20, $00 

dc. b 

$00, 

$00, $00 

dc. b 

$00, 

$00, '-' 

dc. b 

$00, 

$00. $00 

dc.b 

$00, 

$00, $00 

dc. b 


$00, $00 

dc. b 

'8', 

'9', '4' 

dc. b 

'O', 

$0D 

dc. b 

$00, 

$00, $00 


dc. b 

$00, 

$lb. 

' f ' 

dc. b 

'/ ', 

'< ', 

' ) ' 

dc. b 

'Q', 

'W', 

'E' 

dc. b 

'O', 

'P', 

$9a 

dc. b 

'D', 

'F', 

'G' 

dc. b 

$8e. 

* 

$00 

dc. b 

'B ', 

'N', 

'M' 

dc. b 

$00, 

$20, 

$00 

dc. b 

$00, 

$00, 

$00 

dc. b 

$38, 

$00. 



'2'. '3', '4', '5', '6' 
'O'. $9e, $27, $08, $09 
'r', 't'. 'z ', 'u', 'i ' 
'+ '. $0D, $00, 'a ', 's' 
'h '. 'j '. 'k '. '1 '. $94 
'y ', 'X ', 'c ', 'v' 
', ', '. ', $ 00 , $00 
$ 00 , $ 00 , $ 00 , $ 00 , $00 

$ 00 , $ 00 , $ 00 , $ 00 , $00 
$ 00 , $ 00 . $ 00 , '+',$00 
$7f , $00, $00, $00, $00 
$ 00 , $ 00 , $ 00 , $ 00 , $00 
'( ', ') ', '/', '*', '7' 
'5', '6', '1 ', '2', '3' 
$ 00 , $ 00 , $ 00 , $ 00 , $00 
$ 00 , $ 00 , $ 00 , $ 00 , $00 


', $dd, '$', '%', '8c' 

'=^ '7'. '' *08, $09 

'R'. 'T', 'Z', 'U'. 'I ' 
'*', $0D, $00, 'A', 'S' 
'H', 'J', 'K', 'L', $99 
' ! ', 'Y', 'X', 'C', 'V' 
', $ 00 , $00 
$ 00 , $ 00 , $ 00 , $ 00 . $00 

$00, $00. $00. $00, $37 
$34, $00, $36, '+', $00 
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dc. b $32. $00. $30. $7f. $00. $00. $00, $00 

dc, b $00. $00. $00. $00. $00. $00. $00. $00 

dc. b '>'. $00. $00. '( S '7' 

dc. b ‘B‘, '9'. '4', '5'. '6'. '1', '2', '3' 

dc.b '0'.'.'. $0D. $00. $00. $00. $00, $00 

dc. b $00, $00, $00. $00, $00. $00, $00, $00 


dc.b $00, $lb. '1', '2'> '3', '4'. '5'. '6' 

dc.b '7'. '8'. '9'. 'O'. $9e. $27. $08, $09 

dc. b 'Q'. 'W'. 'E', 'R'. 'T'. 'Z'. 'U', 'I' 

dc.b 'O', 'P ', $9a. ' + '. $0D. $00. 'A', 'S' 

dc. b 'D'. 'F', 'O'. 'H'. 'J'. 'K', 'L',$99 

dc. b $8e, '#'.$00, 'Y', 'X'. 'C', 'V' 

dc. b 'B', 'N', 'M'. ', ', '. '. '-'.$00, $00 
dc.b $00. $20. $00. $00, $00. $00, $00. $00 

dc.b $00, $00. $00. $00. $00, $00. $00. $00 

dc.b $00. $00, $00. $00. $00, ' + '.$00 

dc.b $00. $00. $00. $7f. $00, $00. $00, $00 

dc.b $00. $00, $00, $00, $00, $00. $00, $00 
dc. b '<'. $00, $00. '( '. ') '. '/'. '7' 

dc. b '8'. '9'. '4'. '5', '6'. '1', '2', '3' 

dc.b 'O'. '. '. $0D, $00. $00, $00, $00. $00 

dc.b $00. $00, $00. $00. $00, $00. $00, $00 

. endc 


if eg COUNTRY-FRANCE 

keytran: 

dc. b $00. $lb, $82. '" '. $27. '< ', $dd 

dc. b $8a, ' ! '. $80, $85. ') '. $08. $09 

dc.b 'a '. 'z '. 'e '. 'r '. 't ', 'y '. 'u 'i ' 

dc. b 'o', 'p $0D. $00, 'q'. 's' 

dc.b 'd', 'f'. 'g'. 'h'. 'j', 'k', '1'. 'm' 

dc. b $97. '' ', $00. '#'. 'ui'. 'X '. 'c ', 'v' 

dc. b 'b', 'n'. '. '. 'J ', ': '. '='.$00.$00 
dc.b $00, $20. $00. $00, $00. $00. $00. $00 

dc.b $00. $00. $00. $00, $00. $00, $00. $00 

dc.b $00. $00, $00, $00, $00. '+'. $00 

dc. b $00. $00. $00, $7f. $00. $00, $00, $00 

dc.b $00, $00, $00. $00. $00, $00, $00, $00 

dc. b '<', $00, $00. '( '. ') '. '/'. '7' 

dc. b '8'. '9', '4', '5', '6', '1', '2'. '3' 

dc.b '0','. ', $0D, $00. $00, $00, $00. $00 

dc.b $00, $00. $00. $00. $00, $00, $00, $00 

keyshif: 

dc. b $00.$lb, '1'. '2', '3'. '4', '5'. '6' 

dc.b '7', '8', '9', 'O', $f8. $ff. $08. $09 

dc. b 'A'. 'Z', 'E'. 'R', 'T', 'Y', 'U'. 'I' 

dc. b 'O'. 'P '. $b9. $0D, $00. 'Q'. 'S' 

dc. b 'D'. 'F'. 'G', 'H', 'J'. 'K'. 'L', 'M' 
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dc. b $9c, $00, ' I 'W', 'X'. ’C , 'V' 

dc. b 'B', 'N', "+',$00,«00 

dc. b *00, *20, *00, *00, *00, *00, *00, *00 


dc . b 
d c . b 
d c . b 
dc. b 
d c . b 
d c . b 
d c . b 
d c . b 


* 00 , 

*38, 

*32, 

* 00 , 

'B', 

'O'. 

* 00 , 


* 00 , * 00 . 
* 00 , 

*00, *30, 
* 00 , * 00 , 
* 00 , * 00 , 
'9', '4', 
*0D. 

* 00 . * 00 , 


* 00 , * 00 , * 00 , 
*34, *00. *3i. 
*7f , *00. *00, 
* 00 , * 00 . * 00 , 

"5' , 'h' . 'i '. 
* 00 , * 00 , * 00 , 
* 00 , * 00 , * 00 . 


*00, *37 
*00 

* 00, *00 
* 00 , *00 
' 7 ' 
'2'. '3' 
* 00 , *00 
* 00, *00 


key c 1 : 


dc . b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 


*00, *lb, '«t',*82, '"',*27, '(',*dd 
*8a, ' ! ', *80, *85, ' ) ', *08, *09 

'A', '2', 'R', 'T', 'Y', 'U', 'I' 

'O', 'P', '*',*0D.*00. 'Q', 'S' 

'D', 'F', 'O', 'H', 'J', 'K', 'L', 'M' 
*97, '' ', *00. '#', 'W', 'X', 'C', 'V' 
'B', 'N', ', ', '; ', ': ', '=',*00, *00 
* 00 , * 20 , * 00 , * 00 , * 00 , * 00 , * 00 , *00 


dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 
dc. b 


* 00 , 

* 00 , 

* 00 , 

* 00 , 

' 8 ', 

'O', 

* 00 , 


* 00 , 

* 00 . 

* 00 , 

* 00 , 

* 00 , 

'9', 

/ / 

. f 

* 00 , 


* 00 , 

i 

* 00 , 

* 00 , 

* 00 , 

'4', 

*0D. 

* 00 , 


* 00 , 
* 00 , 
*7f , 
* 00 , 
' ( ', 
'5', 
* 00 , 
* 00 , 


* 00 , 
* 00 , 
* 00 , 
* 00 , 
' ) ', 

* 00 , 

* 00 , 


* 00 , 
* 00 , 
* 00 , 
* 00 , 
'/ ', 
' 1 ', 
* 00 , 
* 00 , 


* 00 , 

* 00 , 

* 00 , 

' 2 ', 

* 00 , 

* 00 , 


*00 

*00 

*00 

*00 

'7' 

'3' 

*00 

*00 


endc 


. even 
page 
. text 

* 

routine to set up the general interrupt port registers 
< g p i p, are, ddr ) 


algorithm to set up the port 

1. mask off all interrupts via the imrx registers; 

2. clear all enable and pending bits in the ierx and iprx 

registers; 

3. check the interrupt in-service registers and loop till 

clear; 

4. init the aer register bits as desired (default = 11111111); 

5. init the ddr register bits as desired (default = 10000000); 

6. clear the gpip register; 

7. enable all desired interrupt enable bits; 

8. mask on all desired interrupt mask bits; 
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* # 


. g 1 ob 1 ini tmf p 


ini tmf p 


1 ea 


mf p , aO 


moveq #$0, dO 
movep. 1 dOigpip(aO) 
movep. 1 dO. ierb(aO) 
movep. 1 dOi isrb(aO) 

move, b #*48ivr(a0) 
move, b #$4jaer(a0) 

init the "c" timer 


1 init mfp address pointer 

i init to zero for clearing mfp 
j clear gpip thru iera 
i clear ierb thru isrb 
i clear isrb thru vr 

i set mfp autovector and s-bit 
i set cts to loin to high transition 


move, u 
move. ID 

moveq 
moveq 
move. Ill 
b sr 

lea 

moveq 


#*1111. tc_rot(a5) 
#20. timr ms(a5) 


i setup bitstream for /4 on timer c interr 
.set timer calibration value 


#ctimer. dO 
#*50. dl 
#192. d2 
set imer 

timerc int. a2 
#*5. dO 
ini tint 


j set to timer C 
; set to /64 for 200 hz tick 
» set to 192 

.setup timer and init interrupt vector. 


bsr 

init the "d" timer 


i point to the timer C interrupt routine. . 
. point to the timer C interrupt number 


« 

* 


moveq 
moveq 
moveq 
moveq 
moveq 
b sr 


#dtimer. dO 
#c9600. dl 
#d9600. d2 
#cl200. dl 
#dl200. d2 
setimer 


J select the d timer 

> init for /4 for 9600 baud 

. init for 9600 baud 

i init for /4 for 9600 baud 

i init for 9600 baud 

.branch to our timer initialier. 


now init the 3 rs232 chip registers 


move. 1 #*00980101. dO 

movep. 1 do. scr<aO) 


; inits scr. ucr. rsr. tsr 
initialize the default rs— 232 control line settings 


b sr 
b sr 


d tron 
rtson 


initialize the rs— 232 buffer record structure 

lea rbufrec (aS) . aO 

lea rs232init.al 

moveq #rssize. dO 

bsr Ibmove ; do block move and return 


9^o?.r 
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initialize the midi buffer record structure 


lea mbufrec (a5) . aO 

lea min i t< a 1 

moveq #mssize.dO 

bsr Ibmove 

move. 1 #aciaexiti dO 
move. 1 dO» vkb derr < a5 > 
move. 1 dO^ vmiderr (a5> 


do block move and return 

init to ikbd and midi error handler address 
init keyboard error handler address 
init midi error handler address 

i point to system midi interrupt vector 


move. 1 #sysmidi j midivec (a5) 

« init the midi acia next 

move. b #rsetac ia» comstat+midi iinit the acia via master reset 

* init the acia to divide by 16x clock> 8 bit datai 1 stop biti no parity* 

* rts low* transmitting interrupt disabled* receiving interrupt enabled 

move, b #divl6+protocol+rtsld+intron* comstat+midi 

* initialize the keyboard acia interrupt vector exception address 

move. b #%000001 1 1* conterm(a5> i enable k ey c 1 i c k * r ep eat key* bell functions 
move. 1 #jdostime* clkintvec (a5) 

move. 1 #genrts* dO i generalized rts for ikbd subsystems 

move. 1 dO. statintvec <a5) 

move. 1 dO* msintvec <a5) iinit user mouse interrupt adr to rts 
move. 1 dO* joy intvec <a5) 


« 

» 

* 


Sound routine initial ization - uses the pre-init'ed dO. 1=0000 !! 


«initsnd: 


moveq 

#«0* dO 

iinit 

'dO' to clear 

sound 

variab les 

move. 1 

dO# cursnd <a5) 

i c 1 ear 

sound ptr 



move, b 

dO* timer (a5) 

; clear 

delay timer 



move, b 

dO* auxd (a5) 

; c 1 ear 

temp value 



move. 1 

dO* prt_to (a5) 

iinit 

printer timout 

to 0 


b sr 

strobeof f 

iinit 

strobe to off 

( 1 ine 

high! ) 

move, b 

#tdelayl* cdelayl(a5) 

iinit 

system default 

key 

repeat values 

move, b 

#tdelay2* cdelay2<a5) 






* within the mouse relative routine 

* initialize the ikbd buffer record structure 


lea 

kbuf rec <a5) * aO 



1 ea 

k init* al 



moveq 
b sr . b 

#kssi ze* dO 
Ibmove 

ido block move and 

return 

b sr 

b ioskeys 

i point key 

translation 
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* init the acia next 

move, b #r setae i ai c omstat+k ey b oard ;init the acia via master re 


* now that the vector is initialized, we can allow interrupts to occur! 

# init the acia to divide by 64 clock. 8 bit data. 1 stop bit. no parity, 
rts low. transmitting interrupt disabled, receiving interrupt enabled 



move, b 

#d i v64+protoc 0 1+rtsl d + intron. comstat+keyb oard 



move. 1 

#mf pvectr. a3 

; point to initializing array of exception vec's 


moveq 

#*3. dl 

iinit branch counter/index 


stl 

move. 1 

dl. d2 




move. 1 

dl. dO 

i load in interrupt # to setup 



addi. b 
asl. 1 

#*9. dO 
#2. d2 

.add constant to point to proper mfp 

interrupt 


move. 1 

0(a3. d2). a2 




b sr 

initint 

. go to service routine 



dbra 

d 1. stl 




1 ea 

midikey <a5). a2 




moveq 

#4i6. dO 

j load in interrupt # to setup 



bsr 

initint 

> go to service routine 



lea 

ctsint (a5) > a2 

i point to the CTS interrupt routine. 



moveq 

««2. dO 

i point to the CTS interrupt number 



bsr 

initint 


* 



; initializing code which sets the enable 


movea. 1 

#seti kbd. a2 

; and mask bits. . . 



moveq 

#sizeikbd. d3 




bsr 

i kbdstr 

iinit ikbd from 'setikbd' data 


genrts 

rts 




Ibmove 

move, b 

(al )+. <aO)+ 




dbra 

rts 

dO> Ibmove 

i and return home 


seti kbd 

dc. b 

«80. «01. «12. «la 

ireset keyboard. disable mouse. d i sab 1 e 

joysticks 

sizei kbd 

equ *-setikbd-l 


kinit 

dc. 1 

k ibuf f er 




dc. w 

k insi ze 




dc. w 

0 




dc. w 

0 




dc. w 

k insi ze/4 




d .c. w 

kinsize*3/4 



kssi ze 

equ 

*— kinit-1 



minit 

dc. 1 

mibuffer 




dc. w 

minsi ze 
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dc. (li 
d c . (ij 
dc. Ill 
dc. Ill 


0 

0 

minsize/4 
minsi ze*3/4 


flissize equ 


*-mini t-1 


. even 
rs232ini t 


dc. 1 

r i b u f f er 

dc. w 

r insize 

dc. w 

0 

dc. w 

0 

dc. w 

r insize/4 

dc. w 

rinsize*3/4 

dc. 1 

robuf f er 

dc. w 

routsi ze 

dc. w 

0 

dc. w 

0 

dc. w 

routsi ze/4 

dc. w 

routsi ze*3/4 

dc. b 

0 

dc. b 

0 

dc. b 

0 

dc. b 

0 

dc. b 

1 

dc. b 

2 

dc. b 

0 

equ 

*-rs232init- 


; ibufptT 

> ibuf si z 
I ibufhead 
i ibuftail 

> ibufloui 

i ibufhigh 

> obufptr 
I obufsi z 

> obufhead 
; obuf tai 1 
i obuf loin 

i obufhigh 
i rsrbyte 
i tsrbyte 
i rxof f 
! txoff 

; rsffiode — xon/xoff mode 
; rsmode — CTS/RTS/DTR mode 
irsfflode filler 


. even 


mfpvectr 

* array of exception vector addresses for the above interrupts* including 

* dummy vectors that point to "rte's". 

dc. 1 txerror 

dc. 1 txr int 

dc. 1 r xerror 

dc. 1 rcvrint 


• page 
. text 

# 

routine to setup a timer # 

algorithm to init a timer * 

* 

1. determine which timer and set dO. b = to timer's index value * 
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-»■ 

» 

* 

* 

# 

■» 

* 

# 

•» 

* 

* 

* 

* 

* 

-» 

» 

* 

* 

* 

» 

* 

* 

* 


as shotun belout; # 

2. disable the associated interrupt; * 

3. disable the timer itself via it's timer control register; * 

4. initialize the timer's data register * 

5. repeat step #4 urtil the data register's contents are * 

verified, per the errata sheet to the 68901 description; 

6. turn on the timer by using the value that you previously * 

stored in dl; * 

« 

note: the interrupt vector for the associated timer 

is not set in this routine, so it is the user's * 

responsiblity to set itif so desired! * 

* 

« 

registers used: dO-d3/aO— a3 * 

registers saved: d0-d3/a0— a3 * 

entry; * 

dO. 1 - timer to be set * 

0 - timer a * 

1 - timer b * 

2 — timer c -» 

3 - timer d * 

dl. b - timer's new control setting * 

d2. b - timer's data register data «■ 

* 

exit; no values to pass # 

* 

d3 - used and abused by call to mskreg routine 
aO. 1 - set to mfp register base * 

al. 1 - temporary location for a3 * 

a2. 1 - used to pass table address to mskreg routine * 

a3. 1 - used to pass table address to mskreg routine * 


* 





. g 1 ob 1 set imer 

setimer; 

movem. 1 d0-d4/a0-a3. - ( sp ) ; save all registers to be messed with!! 

move. 1 #mfp. aO ; set mfp chip address pointer 

move. 1 #imrt. a3 ; mask off the timer's interrupt maskable bit 

move. 1 #imrmt> a2 
bsr. b mskreg 

move. 1 #iert.a3 ;mask off the timer's interrupt enable bit 

move. 1 #iermt.a2 
bsr. b mskreg 

move. 1 #iprt.a3 .mask off the timer's interrupt pending bit 

move. 1 #iprmt.a2 
bsr. b mskreg 

move. 1 #isrt.a3 ;mask off the timer's interrupt inservice bit 

move. 1 #isrmt.a2 
bsr. b mskreg 
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move. 1 

#tcrtabj a3 

;mask off the timer's control bits 



move. 1 

#tcrmsk. a2 




bsr. b 

mskreg 




exg 

a3; a 1 

i save address pointer for restoring 

control 


1 ea 

tdrtab< a3 

i initialize the timer data register 



moveq. 

#«0, d3 

i to prevent false effective address 

g enerat i on 


move, b 

0(a3. dO). d3 



verify 

move, b 

d2. 0(a0> d3) 




cmp. b 

0(a0, d3)i d2 




bne. b 

verify 




exg 

a3t al 

i grab that register address back 



or. b 

dll (a3) 

imask the timer control register value 


movem. 1 
rts 

( sp ) + 1 dO-d4/aO 

-a3 ; restore all registers that 

were saved 


« 


generalize mask register bit(s) routine 


♦ 

« 

entry 



« 

« 

static 

dO - contains 

the timer # 

« 

« 


d3 — used and 

abused 

« 

* 


d4 - used and 

abused 

« 

* 

static 

aO - mfp register base 

« 

* 


a3 - points to 

table of similar timer registers 

* 

* 

static 

a2 - points to 

table of similar timer data values 

« 


****»***«■**#•«•******#*****##**#»«•**■»»**«•*»**•»•«•*■»*■»*************•«•*********•»■ 


mskreg 



bsr. b 

getmask 



move, b 

(a2)i d3 

i grab mask nou 


and. b 
rts 

d3. (a3) 

i and have masked off the desired bit(s) 

getmask 

moveq 

#^0, d3 

i to prevent false effective address generation 


adda 

d 0 1 a3 

i have got pointer to mfp register now 


move, b 

(a3) I d3 

i now have the address offset to mfp 


add. 1 

aOi d3 



movea. 1 

d3i a3 

i now have address pointing to desired mfp reg. 

* 

adda 

rts 

dOi a2 

i now we get the mask to turn off interrupt 
i have got pointer to mask now 

i er t 

dc. b 

$6i %h, $8i $8 


iprt 

dc. b 

*Ai *Ai *Ci *C 


isrt 

dc . b 

*E. *Ei $10, $10 


imr t 

dc . b 

$12. $12, $14, $14 


iermt 

dc. b 

$df, $fe, $df, $ef 


imrmt 

equ 

i ermt 


i prmt 

equ 

i ermt 


isrmt 

equ 

iermt 
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ter tab 

dc. b 

$18. $la. $lc, $lc 


termsk 

dc. b 

$0. $0. $8f . $f8 


tdr tab 

dc. b 

$le. $20, $22. $24 



. even 




* 



* 


initialize mfp interrupt via GEMDOS 

* 




* 

* 

entry 


* 

* 



» 

* 

void 

mfpint(numint. intvec) 

« 

* 

word 

numint 

# 


long 

intvec 


* 



* 

* 



* 



. globl 

mfpint 


mf p int 

move, w 

4(sp). dO 



move. 1 

6( sp > . aO 



and i. 1 

#$f. dO i to ensure masking of 0-$f 



*■«■*•«•**«-»•«■**■«•*«■******■«•*•«■#*■«•■»■•»•»■#•»**■»#**#»****■»■»*■«•*#■»*•»■****•»*•»■»•«•***■»*»***■«■»■» 


* 



# 


routine to init an mfp associated interrupt vector 

* 

# 




* 

algorithm 

* 

# 



* 


1. 

block the interrupt via it's mask bit; 

* 

* 

2. 

disable the interrupt's enable and pending bits; 

# 

* 

3. 

check the interrupt's in-service register and loop till 

* 

* 


clear; 


* 

4. 

init the interrupt's associated vector; 

* 

* 

5. 

set the interrupt's enable bit; 

* 

# 

6. 

set the interrupt's mask bit; 

* 

# 



« 


entry 

* 

* 


dO - contains interrupt # to affect 




a2 - contains new vector address 

* 




initint 


movem. 1 

d0-d2/a0-a2. -( sp ) 

bsr. b 

disint ; 

move. 1 

d0> d2 

asl 

#2. d2 ; 

add i. 1 

#$100. d2 ; 

move. 1 

d2. al ; 

move. 1 

a2. (al) ; 

bsr. b 

enabint ; 

movem. 1 

<sp)+, d0-d2/a0-a2 


i save affected registers 
disable the interrupts 

get a copy so as to determine where to. . . 
place the a2 address into the int. vector 
interrupt vector addr = <4 ♦ int) + $000100 
transfer the calculated address to a register 
...that can act upon it thus!< — vector init'ed 
enable interrupts 

•restore affected registers 
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r ts= 




* 



■K- 

* 


disable an mfp interrupt via GEMDOS 

* 

« 



-M- 

* 

entry 


# 

# 




■» 

void 

jd i sint (numint ) 


* 

word 

num^nt: 

* 




* 


»*********#*#*******#********»*************’*f-******'*'*****’***********'**'^^**** 


. g lob 1 jd is int 
jdisint move, ui 4(sp><d0 

andi. 1 #^f. dO ; to ensure masking of O-^f 

#»*»*******************«*#*****************«************»-»-************«** 
* interrupt disable routine * 

#**«************#**********************************«***************-»***** 


d is int 


movem. 

1 dO-dt/aO-al. 

-( sp ) 

i save affected registers 

lea 

mf p> aO 

i set 

mfp chip address pointer 

lea 

imra(aO>< al 

i set 

al for the mskoff routine 

b sr. b 

bseleet 

.generate the appropriate bit to clear 

be Ir 

dl> (al ) 

i and 

c 1 ear the bit... 

lea 

i era (aO ) > a 1 

i set 

al for another mskoff call 

bsr. b 

bseleet 



b c Ir 

dl. (al ) 

; and 

clear the bit. . . 

lea 

ipra (aO) > al 

1 yet 

again. . . 

bsr. b 

bseleet 



be Ir 

dl> (al ) 

/ and 

c 1 ear the b i t. . . 

lea 

i sra (aO) j al 

i now 

set up to check for interrupts in 

bsr. b 

bseleet 

; get 

proper a/b version. . . 

be Ir 

dl. (al ) 



movem. 

1 ( sp )+< dO-d 1/aO-al 

i restore affected registers 

rts 





«-JHt"»-«-*«"«-»#»*»*»»-»-*-«-***«-*'>M(-**#******-»-****'«-*-»**-»-*«-»'«-**********^f-************ 


* 



* 

■» 

enab 1 e/re — enab 1 e an mfp interrupt via GEMDOS 

# 

* 



* 

* 

entry 


* 

* 



* 

* 

VO id 

jenabint(numint) 

* 

* 

word 

numint 

* 

* 



# 




. g 1 ob 1 j enab int 


jenab int 


move, w 
andi. 1 


4(sp ), dO 

#«f , dO 


i to ensure masking of 0-$f 
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* enable interrupt routine * 

ervabint 


movem. 1 

dO-dl/aO-al, -(sp ) 


1 ea 

mf p, aO ; set 

mf p 

1 ea 

i era ( aO ) < a 1 ; set 

up 

b sr . b 

bselect 


b set 

dli(al) iand 

set 

1 ea 

imra (aO) « al ; set 

up 

b sr . b 

bselect 


b set 

d 1 > < a 1 } i and 

set 

movem. 1 
r ts 

(sp)+< dO-dl/aO-al 



> save affected registers 
chip address pointer 
to enable the interrupt enable bit 

the bit... 

to enable the interrupt enable bit 
the bit... 

i restore affected registers 




# 

•K- 

# 

■ft 

■tt 

* 

* 

* 

* 


the following routine generates the appropriate bset/bclr # 
for the interrupt # specified in dO. valid interrupt #'s are 

0 — > 15 as shown in the 68901 chip specification. It also 
selects between the ixra and the ixrb version of the register 
as is appropriate 


entry dO — contains the interrupt number 

al - contains the pointer to the "i; 
the interrupt byte to mask 
exit dO - same as upon entry 

dl - contains the number of 


version of 


the bit 


« 

■» 

* 

* 

* 

* 

* 

«• 

* 


»■«■*#*»*«•****»«***•«■«■«•*•»(• •»■»•»*#**«»*#*##■«•**«•****»■«•***■»**#•«.#**■)(•* 


bselect 



move, b 

dO, dl 

; copy dO to d 1 for 

scratch work 


cmp i . b 

#«8, dO 

; s e e if 

desired int # >= 8. . . 


bit. b 

s k i pO 

; . . . and 

branch if 

it ain't... 


subq 

#«8, dl 

i adjust 

for using 

ixrb instead 

sk ipO 

cmp i . b 

#$8. dO 

; see if 

desired int # >= 8. . . 


bge. b 

skipl 

; . . . and 

branch if 

it is... 


addq 

#«2> al 

f adjust 

for using 

ixrb instead 

s k i p 1 

rts 






- page 






. text 





r s232p tr 






1 ea 

rbufrec, aO 

i point 

to current 

output buffer 


1 ea 

mf p > al 





rts 






rs232ibuf 



move, w 

ibuftail (aO), d2 


move, w 

ibufhead (aO)i d3 


cmp. w 

d3, d2 

i is head-pointer > tail-pointer 

b h i . b 

r b 1 

; no. . . 

add. w 

i b uf s i z ( aO ) # d2 

; yes. . . buffer used=b uf s i z+ta i 1- 

r b 1 sub . w 

d3, d2 

; obtain tail-head value 
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r ts 


rtsc h k 

btst. b 

#*1< rsmode(aO) 

; check if lue're using control lines 



beq.. b 

rtse X i t 

i no. . . no need to assert rts on 



bsr 

r tson 

; yes. . . turn on rts signal 


rtse X i t 

rts 







put char routine 

for rs— 232 port 

# 

* 

■#• 

» 

this routine transfers characters to a output queue that is 


» 

empti ed 

by an automatic 

interrupt routine. the interrupt 


* 

routine 

handles the actual transfer of the character to the i/o * 

» 

port. 



* 

* 

entry 



* 

« 


dl - contains character to transfer 

* 

» 

exit 



* 

* 


dO - contains "C 

“ for successful transfer, "xoff" 

# 

* 


for full 

buffer and no transfer 

* 

* 


carry bit clear 

- good transfer 

# 

« 


carry bit set - 

error condition 

* 

« 

■W 

rs232put 





move 

sr, -( sp ) 

i save sr 



or i 

#*700, sr 




bsr. b 

rs232ptr 

i point to current output buffer record 



btst. b 

#*0, rsmod e (aO ) 

i are we using xon/xoff flow control? 



beq. b 

rpO 

i no. . . 



tst. b 

t X of f ( aO ) 

;if non-zero then xon is in effect! 



bne. b 

rp 1 

; whether we're full or not, it's all the same! 

rpO 

btst. b 

#*7, tsr <al ) 




beq. b 

r p 1 

; buffer is full so keep char in circular buffr 


move, tu 

obuf head (aO) , d2 




cmp. tu 

ob uf ta i 1 < aO ) , d2 

; head=tai 1? 



bne. b 

r p 1 

; yes. . . 



move, b 

d 1 , udr < a 1 ) 

i write a byte to transmit 



bra. b 

r p3 



rp 1 

move, tu 

ob uf ta i 1 ( aO ) , d2 

; get current tail pointer offset from 

buffer 


b sr 

turap out 

i check for wrap of pointer 



cmp. lu 

ob uf head (aO ) , d2 

i head=tai 1? 



b eq. b 

rp2 

; yes. . . no buffer space left 



move. 1 

ob uf p tr ( aO ) , a 1 

;get current available buffer storage 

location 


move, b 

dl, 0(al, d2) 

i store char to the buffer 



move, tu 

d2, obuf ta i KaO ) 

i store new tail pointer to buffer record 

rp3 

b sr 

rtsch k 

i do we turn on RTS signal line? 



move 

< sp )+, sr 
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rp2 


andi. b 

#$f e. ccr 

> indicate 

carry clear/good 

transfer 

r ts 


i d one for 

now 


b sr 

rtsc h k 

.do we turn on RTS signal 

1 ine? 

move 

( sp )+. sr 




ori. b 

#$1 . ccr 




r ts 


.'done for 

now 



#**#•»#**•»***«■**■«•*«•*#**#*«•**»*■»***■«■#*#**»*■»■»■»•*■«•*****##«■***«•«■«••»**»*•«■*«■***■«•* 


•H- 

•» 

» 

* 

* 

» 

* 

* 

* 

•» 

* 

# 


getchar routine for rs-232 port 

this routine transfers characters from a input queue that is 
filled by an automatic interrupt routine. the interrupt 
routine handles the actual transfer of the character from the 
i/o port. 


entry 

exit 


aO - contains pointer to device buffer record 

dO - contains character if carry bit clear 
if carry bit set then error condition 


* 

# 

# 

* 

# 

# 

* 

•» 

* 

* 


rs232get 


move 
or i 

bsr 


sr, -(a7) 
#^700, sr 

rs232ptr 


> protect this upcoming test 
i point to current output buffer record 


move, uj ibuf head (aO) < d 1 « get current head pointer offset from buffer 
cmp. uj ibuftail <aO)i dl i head=tail? 

rg5 i yes 

urapin .check for wrap of pointer 

move. 1 ibuf ptr (aO) » al .get base address of buffer 

moveq #*0. dO ; clear out 'dO'! 

move, b 0(al.dl).d0 ; get character 

move, w dli ibuf head (aO) .store new head pointer to buffer record 


beq. b 
b sr 


move <a7)+. sr 

andi. b #7.1 1 1 1 1 1 10. ccr i clear carry flag for normal return 
bra. b rg4 


rg5 


move 
ori. b 


(a7)+. sr 
#$01. ccr 


.set carry for error condition just in case. 


* 


rg4 


check rxoff flag and if set. see if low water mark is reached 
if low watermark is reached, turn off rxoff flag and send a ctrl-q 


btst. b #$0. rsmode (aO) .are we using xon/xoff flow control? 
beq. b rg 1 . no. . . 


tst. b 
beq. b 


rxoff (aO) 
rg 1 


i check for a current receiver xon situation 
. xon so continue. . . 
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« now check for louwater mark triggering of flow-control 


b 5r 
cmp . w 
bne. b 


rs232ibuf i get amount of input buffer used 

ib uf 1 ow ( aO ) < d2 iis amount consumed = lowmark? 
r g 1 i no. . . 


move, b #ctrlqi dl 
bsr rs232put 

c Ir. b r X of f ( aO ) 


; setup rs232p ut/txr int to send a ctrl-q 
i turn off rxoff flag byte 


rgl rts 

* * 

receiver buffer full interrupt routine * 

* * 

* grabs data from the rs-232 receiver port * 

* * 


r c vr i n t 

movem. 1 d0-d3/a0-a2. ~ ( sp ) ; save affected registers 

bsr rs232ptr ; point to current output buffer record 


* 


« 

* 


r i 1 


move, b 

btst. b 
beq 


btst. b 
beq. b 
bsr 

move, b 


rsr<al)» rsrbyte(aO) 


#7, rsrby te (aO) 
riS 


#$1» rsmode (aO) 
ril 

rtsof f 
udr (al ) » dO 


i do the required rsr read before 
; th e udr read ! 
ido rcvr buffer full flag test 

i branch should never be taken! means that the 
j wrong interrupt was called. . . should have been 
i the rcvr error interrupt procedure! 

; check for currently using rts/cts/dtr 
i no. . . not currently in use 

i yes. . . so clear rts to indicate we're busy 
i get incoming data byte 


* now we do xon/xoff protocol check in case the byte we just got is 

■» a ''s/'^q. we also check to see which mode we're in so that if we're in 

* binary or bypass mode (where the calling program handles the 

* handshaking!) we let the character into the buffer. if we get either 

* character and are in xon/xoff protocol mode/ we do not pass the 

* character along. instead/ we do the following 

* if we get a ‘'•••■ 5 " xoff, then we set the txoff flag byte to 1 to signal 

* to the txrint routine to stop transmitting. the putchar routine to 

* the transmit buffer also checks the txoff byte and returns the carry 

* set if the byte may not be sent into the buffer. see that routine for 

a better explanation of how it handles txoff=l. 

* if we get a "-q" %on, then we reset the txoff flag byte to 1 to signal 

* to the txrint and the putchar routines to resume normal operation. 


btst. b #<1/ rsmode (aO) 
bne. b ri3 

btst. b #^0/ rsmode (aO) 
beq. b ri3 


j check for currently using rts/cts/dtr 
; yes/ so bypass xon/xoff flow control code. 

/ is the rs232 mode xon/xoff? 
i no. . . so process normally 


93 b 
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cmp i . b 
bne, b 
move, b 
bra. b 

#x onj dO 
r i2 

#*00, txoff (aO) 
riS 

i is the data an "xon" signal? 

; no. . , now check for xoff 
i set to normal transmission status 
{abnormal exit condition! ! 

ri2 

cmp i. b 
bne. b 
move, b 
bra. b 

#xoff, do 
r i3 

#*f f, txoff (aO) 
r is 

i check for xoff <"''s> condition from host 
{neither xon/xoff value, must be normal data 
{set to halted transmission to host 
{abnormal exit condition!! 

ri3 

move, w 
b sr 
cmp. u 
beq. b 

ibuftail (aO), dl 
wrap in 

ibufhead (aO), dl 
riB 

{get current tail pointer offset 
{do wrap of input pointer if needed 
{ head=tai 1? 

{yes. . . exit. . . 


move. 1 
move, b 
move, tu 

ibuf p tr <aO) # a2 
dO. 0(a2. dl ) 
d 1, ibuf tai 1 (aO) 

{get buffer pointer 
{ store the data 

{ store the new buftail pointer 

* now 

check for 

highwater mark 

triggering of flow-control 


b sr 
cmp. uj 
bne. b 

rs232ibuf 
ibuf h igh <aO) 1 d2 
r i6 

{ obtain amount of input buffer used 
{ is amount consumed = highmark? 

{ no. . . 

* yes. 

* set 

. . send xoff to outside uorld 

rxoff flag for the getchar and rcvrint routines 


btst. b 
bne. b 

#*1, rsmode(aO) 
riS 

{check for currently using rts/cts/dtr 
{ yes. .. exit without re-enabling DTR signal 


btst. b 
beq. b 

#*0, rsmode (aO) 
r i6 

{are we using xon/xoff flow control? 
{ no. . . 


tst. b 
bne. b 
move, b 
move, b 
bsr 

rxoff(aO) 
r i6 

#*f f. rxof f (aO) 
#ctr Is, d 1 
rs232put 

{has a Ctrl— s been sent yet? 

{ yes. . . so don't send another 

{means a ctrl-s has been sent to halt input 

{ halt input from host 

r i6 

btst. b 
beq. b 
bsr 

#*1, rsmode (aO) 

r is 

rtson 

{check for currently using rts/cts/dtr 
{ no. . . not currently in use 
{ we 're ready now for more data. .. yum! yumi 

ri8 

be Ir. b 

#*4, isra (al ) 



movem. 1 ( sp > +, d0-d3/a0-a2 » restore affected registers 

r te 

* 

* 

* transmit buffer empty interrupt routine # 

» 


9:f/ 
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txr int 

movem. 1 d2/a0-a2i - ( sp ) 
bsr rs232ptr 


; save affected registers 

i point to current output buffer record 


btst. b #$1 1 r smod e ( aO ) ; are lue using CTS/RTS flow control ‘ 

bne. b ti6 i yes. . . get out of this routine and use CTSINT 


btst. b 
beq. b 
tst. b 
bne. b 


#$Oi rsmod e ( aO ) 
tiO 

txof f (aO) 
ti6 


; are ue using xon/xoff flow control? 

; no. . . 

;if non-zero then xon is in effect! 

; whether we're full or not. it's all the same! ! 


tiO 


move, b 
move, w 
cmp . w 
beq. b 
b sr 

move. 1 
move, b 
move, w 


tsr(al)< tsrbyte(aO) 

ob uf h ead ( aO ) j d2 

ob u f ta i 1 ( aO ) / d2 ;head=tail? 

ti6 i yes. . . abnormal exit. . . 

wrapout i do wrap of input pointer if needed 

ob uf p tr ( aO ) ; a2 J get current buffer pointer 

0 (a2i d2) j udr ( a 1 > iwrite a byte to transmit 

d2j obuf head (aO) .store new head pointer 


ti6 bclr.b #$2. isra(al) ; turn off interrupt 

movem. 1 < sp ) +. d2/a0-a2 i restore affected registers 
r te 


* * 

* C 1 ear-To-Sen d interrupt routine 

* « 

* * 

**•»*•«• •**•»**•«••»•»***■»***#*#«■)(-({•*# «■***•«••»•»■*********■)(*#****#***•«.•»*##«*#****#**#«# 


ctsint 

movem. 1 d2/a0— a2. — ( sp ) ; save affected registers 

bsr rs232ptr ; point to current output buffer record 


btst. b #$1 > r smode < aO ) 
beq. b ctsexit 


i are we using CTS/RTS flow control? 

i no. . . 


c tsO 


move, b t sr ( a 1 ) . t sr b y te ( aO ) 

btst. b #^7/ tsrbyte(aO) ; is the transmit buffer empty yet? 
beq. b ctsO ; no. . . continue looping 


move, w 
cmp . w 
beq. b 
b sr 

move. 1 
move, b 
move, w 


obufhead (aO)< d2 

ob uf ta i 1 < aO ) / d2 ;head=tail? 

ctsempty ; yes. . . abnormal exit. . . empty output buffer 

wrapout ido wrap of input pointer if needed 

ob uf p tr ( aO ) j a2 ; get current buffer pointer 
O ( a2. d2 ) . udr ( a 1 ) ; write a byte to transmit 

d2i obufhead (aO) .store new head pointer 


ctsexit bclr.b #$2.isrb(al) ; turn off interrupt 

movem. 1 ( sp ) +. d2/a0— a2 .restore affected registers 
r te 




ctsempty 
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bra. b ctsexit ;exit via “ctsexit" 

*****-»■*•»*********** »************-»•**«■*«■»* »■«•«#** It** IHf**** «•**«■*■« *■«•« «•***«■* 

* routines to handle tx or rx errors * 

* IHt-tf *************** R-*****«- ■»*■»■*•»*■»* «-***********»***'»H(-**#**'IHHHHHMHHHHH^* «-** 


r X error 


movem. 
b sr 


dO/aO-a 1 » -( sp ) i save all registers 

rs232ptr ; point to current output buffer record 


move, b 
move, b 
be Ir 
movem. 1 
r te 


rsr (al ) I rsrby te (aO) ;receiver status register 

udr(al)idO ; dummy read of data register 

#$3. i sra ( a 1 ) 

( sp )+< dO/aO-al ; restore all registers 


t X error 


movem. 1 

aO-a 1 j - ( sp ) 

i save a 

b sr 

rs232ptr 


move, b 

tsr(al)i tsrbyte<aO) 

be Ir 

#41 1 i sra ( a 1 ) 


movem. 1 
r te 

( sp ) +1 aO-a 1 

; restor 


1 1 reg i ster s 

i point to current output buffer record 
; transmitter status register 
e all registers 


* * 


* 


get device buffer record 



* 






* 

entry : 




* 

* 





* 

« 

1 ong 

i or ec ( d evi c e ) 



* 

* 

word 

d evi c e 



* 







* 

returns 

pointer to the device's buffer 

record table 


* 





* 



device - buffer identification 

numb er 

* 



0 - rs232 


* 



1 - ikbd 



* 


2 — midi 


■» 



3 - p 

aral lei 


* 

* 





* 



device table 

structure; 


* 

* 








input buffer 

address 

1 ong 

-X- 

* 


input buffer 

size 

word 


* 


input buffer 

h ead 

word 

* 



input buffer 

tail 

word 

* 



input buffer 

low-water mark 

word 

* 

* 


input buffer 

high-water mark 

word 

■X 

* 





X 

it 


output buffer 

address 

long 

X 

* 


output buffer 

size 

word 

X 

* 


output buffer 

head 

word 

X 

* 


output buffer 

ta i 1 

word 

X 

* 


output buffer 

low-water mark 

word 

X 


93 ^ 
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* output buffer high-water mark word 

* 


* 

it 


i or ec 


devtab 


■»■ 


. g 1 ob 1 

i orec 

moveq 

#0/ dl 

move, w 

4 < sp ) / d 1 

move, w 

sr/ - ( sp ) 

or i . w 

#$700, sr 

lea 

devtab/ a2 

as 1 . 1 

#2/ dl 

move. 1 

0(a2/ dl. 1 ), dO 

move, w 
rts 

( sp ) +, sr 


dc. 1 

rbuf r ec 

dc. 1 

kbuf rec 

dc. 1 

mb uf rec 

dc. 1 

p b uf r ec 


isave sr for now 
i no interrupts for now 

i x4=index into devtab space 
»get device bufrec pointer 
; save sr for now 


/future consideration? 




» 




* 

♦ 


configure rs-232 port of MFP 

* 

* 




* 

* 

entry ; 




* 

void 



* 

« 

r sc onf ( b audra 1 6/ flow/ ucr/ rsr/ tsr, scr) 

# 

* 

word 




■«• 

baudrat 

e - baud rate setting (value for timer D 

control ^ 

* 



and data registers) 





xxxxxxxx/xxxx xCCC/x X X X X X X x/DDDDDDDD 

* 

* 

word 

f 1 ow - 

flow control; xxxxxxhs 

‘tf- 

* 



h - cts/rts/dtr 

* 

* 



5 - software xon/xoff 

* 

* 



1 - on/ 0 - off 

-H- 

■» 

word 

ucr - 

MFP ucr register setting 

# 

* 

word 

rsr — 

MFP rsr register setting 

« 

* 

word 

tsr - 

MFP tsr register setting 



word 

scr - 

MFP scr register setting 






. g 1 ob 1 

rsconf 


rsconf 




« 

move, w 
ori. w 

sr / — ( sp ) 
#$700, sr 

/ save sr for now 
i no interrupts for now 


bsr 

r s232p tr 


# 

* 

first/ 

we grab the old 

ucr, rsr, tsr, scr contents 
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movep. 1 ucr(al)i d7 

■» 

* next/ we disable the receiver and transmitter enable bits 

moveq #*0/ dO ;pre-init to zero 

move, b dO/rsr(al) . disable the receiver 

move. b dO. tsr(al) ; disable the transmitter 


«• 


set flow control mode(s) 


t s t . w $6 { s p ) 

bmi . b auxc 1 

move, b $7(sp ). rsmode(aO) 

set timer baud rate 


iif -1 then don't change 


auxc 1 


moveq 
moveq 
tst. w 
bmi. b 
move, w 
1 ea 

move, b 
lea 

move, b 
move. 1 
moveq 
bsr 


#0. dO 
#0. d2 
$4(sp) 
auxc2 
$4 < s p ) . d 1 
baudctrl/ a2 
0(a2. dl. w)> dO 
bauddata. a2 
0<a2. dl. w). d2 
dO. dl 

#dtimer. dO 
setimer 


if -1 then don't change 


/point to baudrate control register settings 
/get control mask 

.point to baudrate data register settings 
/ get data reg value 

ire-assign for "setimer" routine protocol 
i point to timer D 
i set timer D to new baud rate 



set rs- 

232 registers 





auxc2 

tst. w 

«8(sp) iif 

-1 

then 

don't 

change 


bmi. b 

auxc3 






move, b 

$9( sp ) / ucr (al ) 





auxc3 

tst. w 

fa < sp ) iif 

-1 

then 

don 't 

change 


bmi. b 

auxc4 






move, b 

fb ( sp ) / rsr (al ) 





auxc4 

tst. w 

fc ( sp ) iif 

-1 

then 

don 't 

change 


bmi. b 

auxc5 






move, b 

f d ( sp ) / tsr (al > 





auxc5 

tst. w 

f e ( sp ) /if 

-1 

then 

don't 

change 


bmi. b 

auxc6 






move, b 

f f ( sp } / scr (al ) 





auxc6 







■K' 

* 

* 

finally 

we re-enable the receiver and transmitter 


moveq #♦!. dO 
move, b dO/rsr<al) 
move, b dO. tsr(al) 


i pre-init to one 
.enable the receiver 
.enable the transmitter 


move old contents of rs-232 registers to dO. 1 




move. 1 d7. dO 


Jul 
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# move, tu (sp)+j5r ; restore sr for now 

r ts 

* baudrate table - control register setting 


baud c tr 1 

dc. b cl 9200, c 9600. c 4800, c 3^.00 

dc. b c2400, c2000, c 1800. c 1200 
dc. b c600, c300, c200, cl50 
dc. b cl34, cllO, c75. c50 

* baudrate table - data register setting 

bauddata 

dc. b d 19200, d9600, d4800, d3600 
dc. b d2400, d2000, d 1800, d 1200 
dc. b d&OO. d300, d200, dl50 
dc. b dl34, dllO, d75. d50 

■ page 
. text 


lurap in 



addq. ui 

#1. dl 

i i=h + l 


cmp. ID 

ibufsiz(aO), dl 

;? i>= current bufsiz? 


bcs. b 

uiii 

; no. . . 

uii 1 

moveq 

rts 

#«0, dl 

i urap pointer 


uirapout 

addq. ui 

#1. d2 

. i=t+l 


cmp. u) 

obuf si z < aO) , d2 

;? i>= current bufsiz? 


bcs. b 

wo 1 

i no. . . 


moveq 

#»0, d2 

i wrap pointer 

uiol 

rts 




. page 
. text 




***•»•*******■»#*•»•*■«■•»•******«•***»****•«•**•»**«•***♦■«•******»*****•»■*■*■»■*■»■»■**■»■**■«-«■«* 
* this code handles the mid i /keyboard interrupt exception 

*****■»•■«•*•«•**•«•********•»■***************************»»*****«■«•«•«•*■«■*•«•■«■ «•**#*»*** 



. globl 


mi d i k ey 






mi d i key 










movem. 

1 

d0-d7/a0-a6. 

- ( sp ) 

i save 

all 

r eg i sters 


lea 


$0. a5 


i addre 

ss point 

er t 

o variable base 

keymid i 

1 ea 


mb uf r ec ( a5 ) , 

aO 

i point 

to midi 

buffer record 


lea 


midi, al 


; point 

to midi 

reg 

ister base 


movea. 

1 

vmi d err ( a5) , 

a2 

i I oad 

in the j 

ump 

vector 


bsr. b 


astatus 


i goto 

g enera 1 

ac ia 

status check routine 


1 ea 


kbufrec (a5). 

aO 

i point 

to i kbd 

buffer record 


I ea 


keyboard, ai 


> point 

to keyb 

oard 

register base 


movea. 

1 

vkb d err ( a5 ) , 

a2 

i load 

in the j 

ump 

vector 


bsr. b 


astatus 


i goto 

general 

ac ia 

status check routine 
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btst. b 
beq. b 
be Ir. b 
movem. 1 
r te 


#*4.gpip+mfp < check f 

keymidi jrepeat 

#*6» isrb+mfp j clear i 

<sp)+/ d0-d7/a0--a6 

i g o back 


or pending interrupt occurance 
this interrupt processing 
n-service bit 
/restore all registers 
to uhat mas happening! 


astatus 

move, b 
btst. 1 
beq. b 
btst. 1 
beq. b 
movem. 1 
bsr. b 
movem. 1 

mk 1 and i. b 

beq. b 
move, b 
jmp 

ac iaexit 

r ts 


comstat(al }/ d2 
#7/ d2 
ac iae X i t 
#0/ d2 
mk 1 

d2/a0-a2. -(sp ) 
ar c vr int 
(sp)+, d2/a0-a2 
#%00100000, d2 
ac iaex i t 
i odata ( a 1 ) > dO 
(a2) 


i grab device status 

i make sure it was an interrupt request 
jnope. . . it's empty 
; see if receiver buffer is full 
;nope. . . it's empty 

; yes. ..get byte 

imask off bits already tested 
j see if any other status bits are on... 
i grab data byte from acia data register 
i yes so branch to pre-inited error subroutine 


•«-«-##«"»"«-##*****#**»**************-JHt******************»-«-IHH<-*****#*1HHHHt**#* 
* * 


« 

« 


acia receiver buffer full interrupt routine 


■ft 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 


arevr int 


ft 


ML8 


. g lob 1 

arevr int 


move, b 

iodata(al )i dO 

/grab data byte from acia data register 

empa. 1 

#kbufrec< aO 


bne 

mi d i by te 

/don't treat midi acia data as anything other 
/ than as pure data. . . 

tst. b 

kstate (a5) 


bne. b 

ML3 


emp i . b 

««f6. dO 


bes 

i tsakey 

/branch early if it is not a ikbd header! 

sub i. b 

«$f6. dO 

/ generate true index into tables now 

andi. 1 

#«f f , dO 

/dear high 3 bytes for indexing 

lea 

i kbdevi a3 

/point to ikbd device state codes 

move, b 

0(a3/ dO)> kstate(a5) i set ikbd state 

lea 

i kbd lenj a3 

/point to ikbd device buffer length table 

move, b 

0(a3i dO)/ kindex (a5) i set ikbd device index counter 

add i. w 

#$f6. dO 

/ re-constitute original value 

emp i. b 

#«f8> dO 


bit. b 

ML8 


empi. b 

««fb> dO 


bgt. b 

ML8 


move, b 

dOi mousebuf (a5) 

rts 



dc. b 

statks/ amouse 

/ rmouse/ rmouse/ rmouse/ rmouse 

dc. b 

clock/ joyal 1/ 

joyO/ joyl 




i kbdev 
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ikbdlen dc.b 
dc. b 

ML3 

cmp i . b 
b c c 
lea 
moveq 
move, b 
subq. b 
asl 
add. b 
subq. b 
asl 

movea. 

movea. 

movea. 

* 

* 

movea. 
moveq 
move, b 
suba. 1 
move, b 
sub. b 
tst. b 
bne. b 

ikserve move. 1 
jsr 
addq 
clr. b 

MLl rts 

i kbdparams 

dc. 1 
dc. 1 
dc. 1 

dc. 1 
dc. 1 
dc. 1 

dc. 1 
dc. 1 
dc. 1 

dc. 1 
dc. 1 
dc. 1 

dc. 1 
dc. 1 
dc. 1 

ML35 


statdex^ amdexj rmdex-1. rmdex-1) rmdex-lj rmdex-1 
clkdexj joyadex* joydex/ joydex 


#joyO» kstate(a5) 

ML35 ia joystick 0/1 record byte, not both! 

i kbdparams, a2 ; point to ikbd subsystem parameters table 

#^0, d2 


kstate (a5) , d2 
#«1, d 2 
d2 

kstate<a5), d2 
#$1, d2 
#2, d2 


load to generate longuiord offset 
kstate(a5)=l to 5/ table index is 0 to 
x2 
+ 1 

kstate(a5)=l to 5/ table index is O to 
x4 


4 

4 


0(a2, d2), aO 
4(a2, d2), al 
8(a2, d2). a2 


(a2>. a2 

#$0. d2 

k index (a5), d2 
d2, al 
dO, (al) 

#1/ kindex (a5) 
kindex (a5) 

MLl 

aO, - < sp > 

(a2) 

#«4, sp 
kstate (a5) 


i load in subsystem''s record pointer 
; load in subsystem's index base+record pointer 
; load in subsystem's pointer variable that 
i contains the pointer to the subsystem's 
; interrupt routine. . . 

i clear out 'd2' for address manipulation 


i stuff buffer pointer to stack 
i go service the subsystem interrupt routine 
;re-adjust stack 

i reset ikbd state 


statrec 

statdex+statrec 
stat intvec 

amrec 

amdex+amrec 

msintvec 

mousebuf 

rmdex+mousebuf 

msintvec 

c 1 krec 

c 1 k de x+c 1 krec 
elk intvec 

joyrec 

joyadex+joyrec 
joy intvec 
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move. 1 
add. b 
sub i . b 
move. 1 
move, b 
movea. 1 
lea 
bra. b 


#joyrec+li dl 

kstate(a5). dl ikstate(a5) reflects joyO or joyl state 
#joyO, dl 

dl)a2 i create index to joyrec table for record bute 

dO. (a2) 

j o y i n tve c ( a 5 > < a2 i get user's joystick interrupt routine adr 

j oy r ec ( a 5 ) I aO ; send along address of joystick data 

i kserve 


itsakey 

check 


ar i2 


ar i3 


ar i4 


ariS 


ar i6 


ar i7 


ar i8 


ari9 


ar i9a 
ar i 10 

ar i 1 1 


move, b 

kbshift(aS), dl 

; load in kbshift(a5) for 

manipulation 

the special keys 


cmp i. b 

#«2A, dO 

ileft shift? 


bne. b 

ari2 



b set 

#KBLSH, d 1 



bra. b 

ar i 10 



cmp i . b 

#«AA> dO 



bne. b 

ar i3 



be Ir 

#KBLSH, d 1 



bra. b 

ar i 10 



cmp i . b 

#$36> dO 

i right shift 


bne. b 

ar i4 



bset 

#KBRSHi d 1 



bra. b 

ar i 10 



cmp i . b 

#$B6. dO 



bne. b 

ar i 5 



be Ir 

#KBRSH> d 1 



bra. b 

ar i 10 



cmp i . b 

#*1D, dO 

; CTRL 


bne. b 

ar x6 



bset 

#KBCTL, dl 



bra. b 

ar i 10 



cmp i . b 

#*9D, dO 



bne. b 

ar i7 



be Ir 

#KBCTL, dl 



bra. b 

ar i 10 



cmp i . b 

#*38, dO 

i ALT 


bne. b 

ar i8 



bset 

#KBALT, dl 



bra. b 

ari 10 



cmp i. b 

#«B8, dO 



bne. b 

ar i9 



be Ir 

#KBALT, d 1 



bra. b 

ari 10 



empi. b 

#*3A, dO 

,■ CAPS LOCK 


bne. b 

arill 



btst. b 

#0, conterm(a5) 



beq. b 

ari9a 

i no click please! 


move. 1 

#keyclk, cursnd(a5) 


move, b 

#0, t imer (a5) 



bchg 

#KBCL, dl 

i toggle CAPS LOCK state 


move, b 

dl, kbsh if t <a5) 

i restore new kbshift(a5) 

value 

rts 


i ignore CAPS LOCK break 


btst. 1 

#7, dO 

; is it a break code? 


bne. b 

ari 12 

; no. . . a break code! 


tst. b 

keyrep (a5) 

; yes 



9^6 
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bne. b ari 15 

move, b dOj keyrep(a5) ; save for repeat purpose 
move. b cdelay 1) kdelay 1 (a5) 
move, b cdelay2> kdelay2<a5) 
bra. b ari 16 

aril5 move, b #0> kdelay 1 (a5) 

move, b #0/ kdelay2(a5) 
bra. b aril6 
aril2 tst. b keyrep(a5) 

beq. b ari 18 
moveq #Oidl 
move. b d 1> keyrep (a5) 
move, b d 1/ kdelay 1 (a5) 
move, b dl> kdelay2<a5) 

cmpi.b #*c7» dO ;is it a "home" break-code? 

beq. b aril8a < yes. . . allou it to pass 

cmpi. b #$d2; dO ; is it a "insert" break-code? 

bne aril4 ; no. . . reg ular break junk... 

btst. b #KBALT< kbsh if t <a5) > early "ALT" test to prevent double "nulls 

beq ari 14 ; no ALT. . . so exit noui. . . 


ari 16 

btst. b 

#0> conterm<a5) 


beq. b 

aril6a ; no click please! 


move. 1 

#keyclki cursnd<a5) 


move, b 

#0i timer (a5) 

^_^ri 16a 

move. 1 

aOi-(sp) .-store kbufrec pointer 


moveq 

#«0. d 1 


move, b 

dO. dl 


movea. 1 

skeytran(a5}> aO 


andi. ui 

#*7F. dO 


btst. b 

#KBCL. kbshift<a5) 


beq. b 

conin2l 


movea. 1 

skeyc 1 <a5) . aO 

conin21 

btst. b 

#KBRSH. kbshift(a5) 


bne. b 

conin22 


btst. b 

#KBLSH. kbshift<a5) 


beq. b 

conin23 

conin22 

cmp i . b 

#^3b> dO ; see if a possible function key 


bcs. b 

conin22a i unsigned less than louest function scancode 


cmp i. b 

#♦44. dO . see if a possible function key 


b h i . b 

conin22a ; unsigned greater than highest function scan 


ad d i . uj 

#♦19. dl i add to change to GSX standard 


moveq 

#♦0. dO ; change to GSX standard 


bra 

c on in25 

conin22a 



movea. 1 

skeyshif <a5). aO 

conin23 

move, b 

(aO. dO. u) . dO 


btst. b 

#KBCTL. kbsh if t (a5) ;is the control key down? 


beq. b 

conin24a 


cmp i . b 

#cr. dO ; is it a carriage return? 


bne. b 

conin23a 


moveq 

#lfi dO ; change to a linefeed according to GSX spec. 




an 18 


aril 8a 
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beq. b 

conin24 


c on in23a 

cmp i . b 

#*47, d 1 

; convert CONTROL-home to gsx standard 

bne. b 

conin23b 

i by adding #*30. . . 

addi. (ii 

#*30, dl 


bra 

conin25 


conin23b 

cmp i . b 

#*4b, dl 

; convert CONTROL-left arrow to gsx standard 

bne. b 

conin23c 


moveq 

#*73, dl 

; change according to gsx spec 

moveq 

#*0, dO 


bra 

conin25 


conin23c 

cmp i . b 

#*4d,dl 

.convert CONTROL-right arrow to gsx standard 

bne. b 

conin24 


moveq 

#*74, d 1 

i change according to gsx spec 

moveq 

#*0. dO 


bra 

conin25 


conin24 

and i . ui 

#*01F, dO 

; yep, so CTRLize the key 

bra 

conin25 


conin24a 

btst. b 

#KBALT, kbsh if t (a5 ) ; is the alt key down? 

beq 

conin25 


ifeq 

CDUNTRY-GERMANY 


cmp i . b 

#*la. dl 

i is it a ALT-umlaut? 

bne. b 

altgerl 

; no. . . 

move, b 

#*40, dO 

i put in 'S', then check the shift keys 

move, b 

kbshift(a5), d2 

i grab current setting 

and i. b 

#*3. d2 

i KBRSH4-KBLSH bits 

beq 

conin25 

{process it as unshifted 

move, b 

#*5c, dO 

iput in '\', instead... it's a alt-shift umlaut 

bra 

c onin25 

i process it 

altger 1 cmp i. b 

#*27, d 1 

i is it a ALT- 

bne. b 

altger2 

i no. . . 

move, b 

#*5b, dO 

iput in then check the shift keys 

move, b 

kbshift<a5), d2 

; grab current setting 

and i. b 

#*3, d2 

iKBRSH+KBLSH bits 

beq 

conin25 

{process it as unshifted 

move, b 

#*7b, dO 

{put in instead. .. it 's a alt-shift umlaut 

bra 

conin25 

{ process it 

altger2 cmpi. b 

#*28, d 1 

i is it a ALT- 

bne. b 

outside 

{ no. . . 

move, b 

#*5d, dO 

{put in '3', then check the shift keys 

move, b 

kbshift(a5), d2 

{ grab current setting 

and i . b 

#*3, d2 

{KBRSH+KBLSH bits 

beq 

conin25 

{process it as unshifted 

move, b 

#*7d, dO 

{ put in '}', instead. . . it's a alt-shift umlaut 

bra 

conin25 

{ process it 

endc 






i f eq 


COUNTRY-FRANCE 
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altfrl 


altfr2 


altfrS 


outside 

* 

* 

* 

alt 15a 
iiik loop 1 


cmp i . b 

#«la, dl 

i i s it a ALT- ■' ? 


bne. b 

altfrl 

j no. . . 


move, b 

#$5b, do 

i put in 'L'l then check the 

shift keys 

move, b 

kbshift(a5)> d2 

i grab current setting 


and i. b 

#$3, d2 

iKBRSH+KBLSH bits 


beq^ 

c on in25 

i process it as unshifted 


move, b 

#$7b, dO 

i put in '-C', instead. .. it 's 

a alt-shift 

bra 

conin25 

} process i t 


cmp i. b 

#«lb, dl 

i i 5 it a ALT-$? 


bne. b 

altfr2 

i no. . . 


move, b 

#*5d. dO 

i put in '1^, then check the 

shift keys 

move, b 

kbshifttaS), d2 

i grab current setting 


andi. b 

#«3. d2 

i KBRSH4-KBLSH bits 


beq 

c onin25 

j process it as unshifted 


move, b 

#*7d, dO 

jput in instead. .. i t 's 

a alt-shift 

bra 

conin25 

i process it 


cmpi. b 

#«28. d 1 

i is it a ALT- 


bne. b 

altfr3 

; no. . . 


move, b 

*«5c. dO 

i put in '\', then check the 

s h i f t keys 

move, b 

kbshift<a5)/ d2 

; grab current setting 


andi. b 

*$3. d2 

i KBRSH-*-KBLSH bits 


beq 

conin25 

{process it as unshifted 


move, b 

#$00, dO 

i put in 'NUL', instead. . . it ' 

5 a alt-shift 

bra 

conin25 

i process it 


cmpi. b 

#$2b, dl 

iis it a ALT-#? 


bne. b 

outside 

i no. . . 


move, b 

#♦40, dO 

i put in then check the 

shift keys 

move, b 

kbshif t(a5), d2 

i grab current setting 


and i . b 

#♦3, d2 

; KBRSH-t-KBLSH bits 


beq 

c onin25 

{process it as unshifted 


move, b 

#$7e, dO 

{put in '1', instead. .. it 's 

a alt-shift 

bra 

conin25 

{ process it 


endc 





cmp i . b 

#♦62, dl 

{ is it an "alt help" signal to dump the 

bne. b 

altlSa 

{ no. . . 

addq. u 

#1 , _d ump f 1 g < a5 ) 

{ yes. .. switch the signal flag on!... 

movea. 1 

( sp ) +, aO 

{restore kbufrec pointer 

bra 

ar i 14 

{ . . . and exit 


check the alt— insert/alt— home key make/break c omb inat i ons< first 


1 ea 

maus key 1 , a2 

i 

get pointer to first alt. mouse scancode table 

moveq 

#3, d2 


create countdown 

cmp. b 

0(a2, d2), dl 

i 

is table's scancode value = current value? 

beq 

keymausl 

f 

yes. . . go preprocess it. . . 

dbra 

d2, mkloopl 

} 

no. ..loop back to check next table value 

cmp i . b 

#♦48, d 1 

i 

is it an up arrow? 

bne. b 

altll 



move, b 

#♦0, d 1 


X value for up arrow 

move, b 

#♦-8, d2 


y value for up arrow 

move, b 

kbshift(a5), dO 

/ 

grab current setting 

and i. b 

#♦3, dO 

} 

KBRSH-t-KBLSH bits 
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beq 

k egmaus 




move, b 

#«-l, d2 

,y value for up arrow 



bra 

k eymaus 



altll 

cmp i . b 

#$4b. dl 

; is it an left arrow? 



bne. b 

altl2 




move, b 

#$0, d2 

jy value for left arrow 



move, b 

#«-8. d 1 

i X value for left arrow 



move, b 

kbshift(a5)/ dO 

; grab current setting 



and i . b 

#$3, dO 

;KBRSH+KBLSH bits 



b eq 

kegmaus 




move, b 

#$-l. dl 

i X value for left arrow 



bra 

k eymaus 



altl2 

cmp i . b 

#«4d, dl 

i is it an right arrow? 



bne. b 

altl3 




move, b 

#$8. dl 

i X value for right arrow 



move, b 

#*0, d2 

; y value for right arrow 



move, b 

kbshift(a5)i dO 

i grab current setting 



and i . b 

#43, dO 

iKBRSH+KBLSH bits 



b eq 

k eymaus 




move, b 

#41. dl 

; X value for right arrow 



bra 

keymaus 



altl3 

cmp i . b 

#450, dl 

i is it an down arrow? 



bne. b 

altl4 




move, b 

#40. d 1 

i X value for down arrow 



move, b 

#40, d2 

; y value for down arrow 



move, b 

kbshift(a5), dO 

i grab current setting 



and i . b 

#43, dO 

;KBRSH+KBLSH bits 



b eq 

keymaus 




move, b 

#41, d2 

i y value for down arrow 



bra 

keymaus 



altl4 

cmp i . b 

#42, d 1 




b c 5. b 

altl 

.not >= the 't' key scancode 



cmp i . b 

#4d, dl 




bhi. b 

altl 

i not <= the '=' key scancode 



add i . b 

#476, dl 

; scancode is a key between '1' key and 

' key 


bra. b 

alt2 



altl 

cmp i . b 

#441, dO 

} is the key an ascii 'A' or greater? 



b c s. b 

alts 

ino...skip to check if 'a'-'z'... 



cmp i . b 

#45a, dO 

i is the key an ascii '1' or less? 



bh i. b 

alts 

jno...skip to check if 'a'-'z'... 


alt2 

moveq 

#40, dO 




bra. b 

conin25 



alt3 

cmp i . b 

#461, dO 

;is the key an ascii 'a' or greater? 



b c s. b 

c onin25 

ino. ..skip to finish normal processing 



cmp i . b 

#47a, dO 

;is the key an ascii 'z' or less? 



b h i . b 

c on in25 

; no. . . skip to finish normal processing 



bra. b 

alt2 



conin25 

and. lu 

#47f, dl 




asl. u 

#40, d 1 

;shift the scan code to the word's high 

byte 


add. ID 

dl, dO 

j form the outgoing word 



movea. 1 

( sp )+, aO 

irestore kbufrec pointer 



move, uj ibuf tai 1 (aO) I d 1 i get current tail pointer offset 
addq #2/dl ; index = tail + 2 

cmp. w i b uf s i z ( aO ) ; d 1 ; check to see if buffer should utrap 


9^f 
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bcs. b 

ar i 13 


raoveq 

dl 

ar i 13 

cmp . w 

ibuf head (aO ) i d 1 


beq. b 

ar i 14 


move. 1 

i b u f p tr ( aO ) » a2 


move, w 

dO< 0(a2, dl ) 


move, w 

dli ibuftail< aO ) 

ar i 14 

rts 



; no. . . 

i wrap pointer 
i head=tai 1 ? 
i yes 

;get buffer pointer 
i store the data 

i store the new buftail painter 


m i d i b y it e 


movea. 1 mid ivec (a5) / a2 
jmp (a2) 


i get contents of midivec for indirect branch 
i jump to midi interrupt handler 


mi 13 


mi 14 


keymausl 


kyml 


kym2 

kym3 

* 

* 

* 

keymaus 


move, w 

ibuftail(aO)i dl 

i get current tail pointer offset 

addq 

#1, dl 

iindex = tail + 1 

cmp. w 

ibufsiz( aO ) < d 1 

i check to see if buffer should wrap 

bcs. b 

mi 13 

; no. . . 

moveq 

#$0. d 1 

; wrap p o int er 

cmp. w 

ibuf head <aO)> d 1 

; head=tai 1? 

beq. b 

mi 14 

i yes 

move. 1 

ibuf p tr ( aO ) j a2 

i get buffer pointer 

move, b 

dOi 0(a2. dl ) 

i store the data 

move, ui 
rts 

d li ibuf tail (aO) 

; store the new buftail pointer 

t 

moveq 

d3 

jpre-init to "keyboard" right mouse button 

btst 

«4. dl 

i see if it is a left or right button... 

beq. b 

kyml 

jit's a right button (*47/*c7) 

moveq 

#KBMLB. d3 

iit's a left button ($52/^d2) 

btst 

#7, dl 

i see if it is a make or break action 

beq. b 

kym2 

iit's a set button action (make code) 

be Ir 

d3» kbshift (a5) 

jit's a clear button action (break code) 

bra. b 

kym3 

j go to further pre-init action. . . 

bset 

d3« kbshift (a5) 

iit's a set button action (set code) 

moveq 

#«0> dl 


moveq 

*«0. d2 


finish 

up at the actual 

pseudo mouse routine 

1 ea 

kmb uf ( a5 ) j aO 

i point to k e y — emu la t ing mouse buffer 

movea. 1 

msintvec (a5 ) j a2 

j grab mouse interrupt vector 

c Ir. 1 

dO 


move, b 

kbshift(a5)i dO 

iget current button status 

Isr. b 

#KBMRB, dO 

; shift right button bit to 'dO' 

a d d i . b 

#*f8, dO 

j add relative mouse header 

move, b 

dO, 0(a0) 

j store in first byte of record buffer 

move, b 

dl, 1 (aO) 

i store X value in second byte of record buffer 

move, b 

d2, 2(a0) 

; store y value in third byte of record buffer 

jsr 

<a2) 


movea. 1 
rts 

( sp ) +, aO 

j restore kbufrec pointer 




maus key 1 
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d c . b 

*47 



dc. b 

*c7 



dc. b 

*52 



dc. b 

*d2 



page 




. text 




* 



* 


proto 

col for accessing a gi sound chip register 


* 



* 

* 

this 

bios call must be accessed in supervisor state 


* 

because it affects the 'sr' register 


* 



* 


entry 


* 

* 



* 

* 

void 

giacces5(data> register) 

* 

•fr 

word 

data< r eg i ster 

* 

* 



* 



data — data register read/write data 





« 

# 


register — chip register to select 

* 

* 


dl = #*0000 ; selects read operation of the register 

* 

* 


dl = #*80 . or . X x i selects write xx to register 

* 



example write to portb - *80 . or. *0f = *8f 

* 




* 


exit 


* 

* 

read i 

operations 

* 


dO. b • 

— data register contains byte of date 

* 


wr i te 

operations 

* 

* 

dO. b ■ 

— data register contains a verification of written data 


-1^ 



* 

-«- 



* 


*•»•****#**»****#**»*******»**#*******«■******»********#»*■»•**■«•**■»•*##**#*##*# 



. g 1 ob 1 

g iaccess 


g iaccess 




move, w 

4(sp ), do 



move, w 

6(sp ). dl 


g i entry 

move 

sr. — (a7) 



or i 

#*0700. sr 



movem. 1 

dl-d2/a0, -(a7) 

i save affected registers 


1 ea 

g i se 1 ec t> aO 

iinit desired gi register addr 


move, b 

dl. d2 

imake a copy to test for read or write 


and i. b 

#*f . dl 

; turn off any extraneous bits 


move, b 

dl. (aO) 

i select register 


asl. b 

#1. d2 

i shift once for carry bit detection 


b c c . b 

g iread 

; carry clear, so do a read operation 

g i wr i t 

move, b 

dO. 2<a0) 

;init the memory location 

g iread 

moveq 

#*0. dO 

.clear out register 


move, b 

(aO). dO 

; grab the data from the gi register 


movem. 1 

<a7)+. dl-d2/a0 

.restore affected registers 


move 

(a7)+. sr 
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r ts 


; return with data in dO 


* routine to turn off the rts signal * 

.globl rtsoff 


rtsof f 

moveq #/C00001000, d2 
bra. b ohbit 


* routine to turn on the rts signal * 

.globl r tson 

rts on 

moveq #'A1 1 1 101 1 1 / d2 
bra. b of f b it 


**•***•»***«■ •»**■»■****•»***•«••«•«■*•«•*•»■«■*■«■***■»*■»■»• ■»**■»•******•»**■»********■***•»*«■*•«•***•»■ 
* routine to turn off the dtr signal # 

*******■**«■***■«■•«■*•»•*****#*«■#■«■***■«■****»*•*«•*******•»*****■«■***■«■■****♦****»*■«•#«•■»* 
.globl dtr off 

dtroff 

moveq #X000 10000. d2 

bra. b onb i t 


**************■«■#*****■»■•**»**#■«•***•»■*•»**•»•*»#■)(■*#*#■»•**■»•■«•*#■»•**■«■■»•#■«•*•«•**•«•■«•«•■«■*#•»•»■•«■ 
* routine to turn on the dtr signal * 



. globl 

dtron 


d tron 





moveq 

#'/.! 1101 111. d2 



bra. b 

of fbit 



* 



* 

* 

routine 

to set any bit in the gi port a area 


* 



•ft 

* 

entry 


* 

* 



# 


void 

ong i b i t ( b i tnum ) 

* 


word 

b i tnum 

* 

* 




» 


bitnum - byte size bit mask with desired bit set to 

.. 1 .. ^ 

* 



* 




.globl ongibit 

ongibit 

moveq #$0> d2 
move, w 4(sp).d2 
movem. 1 d0-d2. -(a7) 


9S^ 


onb i t 
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move 

sr< - ( a7 ) 


or i 

#*0700, sr 


moveq 

#por ta> d 1 

i get ready to read in the 

move. 1 

d2, -(a7) 


bsr. b 

g i entry 

; go get it. . . 

move. 1 

< a7 ) +, d2 


or. b 

d2, dO 

iset bit(s> on 

moveq 

#p or ta+*80, d 1 

; setup to write to port a 

bsr. b 

g i entry 

i go set it and return 

move 

(a7)+i sr 


movem. 1 

(a7>+, d0-d2 


rts 




* 


4S. 


* 

routine 

to clear any bit in the gi port a area 

* 


entry 


* 

* 



* 

* 

void 

offgibit(bitnum) 

■» 

* 

uiord 

b i tnum 

* 



bitnum - byte size bit mask with desired bit set 

to "0" # 

it 


. g lob 1 

offgibit 


of f g i b 

i t 




moveq 

#*0, d2 



move, (u 

4(sp),d2 


offbit 

movem. 1 

d0-d2, -(a7) 



move 

sr, -(a7) 



or i 

#*0700, sr 



moveq 

#porta, dl i get ready to read in the port a 

contents 


move. 1 

d2, -(a7> 



bsr. b 

gientry i go get it. . . 



move. 1 

(a7)+, d2 



and. b 

d2, dO ; turn bit(s) off 



moveq 

#porta+*80, d 1 ; setup to write to port a 



bsr. b 

gientry ;go set it and return 



move 

<a7)+, sr 



movem. 1 

(a7)+, d0-d2 



rts 




page 




. text 



it 

* 

■»■ 


EXTENDED RBP BIOS MOUSE INIT CALL 

* 

* 

■#• 

* 

entry : 


* 

* 




* 

void 

initmous ( type, param, intvec) 

* 

* 

word 

type 
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* 

* 

« 

■» 

* 

* 

* 

* 

« 

•» 

* 

* 

« 

« 


long paranij intvec 

type - k ey /ab s/re 1 /of f mouse function requested 
4/ 2/ I/O value 

param ~ address of parameter block 
intvec — mouse interrupt vector 


parameter block definition: 

byte O — y=0 at top/bottom» if non— zero then y=0 at bottom 
otheruise y=0 at top 

byte 1 - parameter for set mouse buttons command 
byte 2 - X threshold/scale/del ta parameter 
byte 3 - y threshold/scale/delta parameter 


* 

* 

* 

•» 

» 

* 

* 

* 

* 

» 


« 

the 

foil ouiing 

bytes are re 

qu i red 

for the 

absolute mouse only 

«• 

.i(. 

•» 

byte 

4 - 

xmsb 

for 

absolute 

mouse 

ma X imum 

position 


* 

byte 

5 - 

xlsb 

for 

absolute 

mouse 

ma X imum 

position 


« 

byte 

6 - 

y ms b 

for 

absolute 

mouse 

ma X imum 

position 



byte 

7 - 

y 1 sb 

for 

absolute 

mouse 

ma X imum 

position 

* 

« 

byte 

8 - 

xmsb 

for 

absolute 

mouse 

initial 

position 


* 

byte 

9 - 

xlsb 

for 

absolute 

mouse 

initial 

position 


« 

byte 

a - 

ymsb 

for 

absolute 

mouse 

initial 

position 

* 

« 

byte 

b - 

y 1 sb 

for 

absolute 

mouse 

initial 

position 

* 


•IHHHHHf*************«»*-tt*****««***********'lt***«**-»-ll”»****»**#**'IHf*#-)HHHHHHH«- 


. globl initmouse 


initmouse 

* first bie determine if the init is for a absolute> relative< or keycode 

* mouse action. 


iml 


im2 


tst. w 

*4< sp ) 

i turn mouse off? 

beq. b 

iml 

i yes. . . disable mouse 

move. 1 

4»a ( sp )» ms intvec (a5) ;init the mouse interrupt vector 

move. 1 

$6( sp } 1 a3 


cmp i . ID 

#*1, *4(sp ) 

•relative mouse request? 

beq. b 

im2 

i yes. . . 

cmp i . tD 

#»2, t4(sp ) 

; absolute mouse request? 

beq. b 

im3 

; yes. . . 

cmp i . ui 

#♦4, »4(sp ) 

•keycode mouse request? 

beq. b 

im4 

i yes. . . 

moveq 

#»0. dO 

i error condition returned — improper request 

rts 



moveq 

*«12, dl 

i d isab le mouse 

b sr 

ikbdput 


move. 1 

#xb te X i tj ms intvec ( a5 ) ;re-init the mouse interrupt vector 

bra. b 

ime X i t 


1 ea 

transbuf < a5 ) / a2 

i set transfer buffer pointer 

move, b 

#*a. <a2)+ 

i set to relative mouse 

move, b 

#«b, <a2)+ 

• set relative mouse threshold Xj y 

b sr. b 

setmouse 
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im3 


im4 


ifpex it 
setmou 


moveq 

#7-1, d3 

; set length of string -1 to transfer 

1 ea 

transbuf(a5), a2 

! set transfer buffer pointer 

fasr 

i kbdstr 

i do transfer to ikbd 

bra. b 

ime X i t 


1 ea 

transbuf (a5), a2 

; set transfer buffer pointer 

move, fa 

#*9, (a2) + 

i set to absolute mouse 

move, b 

4(a3), (a2)+ 

i set xmsb max 

move, b 

5(a3), (a2)+ 

; set X Isb max 

move, b 

6)(a3)> (a2) + 

set gmsb max 

move, b 

7(a3), (a2)+ 

set g Isb max 

move, b 

#»c, (a2)+ 

set absolute mouse scale 

bsr. b 

setmouse 


move, b 

#$e. (a2) + 

;load initial absolute mouse position 

move, b 

#«0, (a2) + 

filler load 

move, b 

S(a3), (a2)+ 

■initial xmsb absolute mouse position 

move, b 

9(a3). (a2)+ 

initial xlsb absolute mouse position 

move, b 

*a(a3), (a2) + 

initial gmsb absolute mouse position 

move, b 

*b (a3). (a2)+ 

initial ylsb absolute mouse position 

moveq 

#17-1, d3 

set length of string -1 to transfer 

1 ea 

transb uf ( a5 ) , a2 

set transfer buffer pointer 

b sr 

i kbdstr 

do transfer to ikbd 

bra. b 

ime X i t 


1 ea 

transbuf (a5)i a2 

set transfer buffer pointer 

move, b 

#*a. (a2)-»- 

set to mouse keycode mode 

bsr. b 

setmouse 


moveq 

#6-1, d3 

set length of string -1 to transfer 

lea 

transbuf ( a5) , a2 

set transfer buffer pointer 

b sr 

ikbdstr 

do transfer to ikbd 

moveq 

rts 

#<i-l,dO 

set to true to indicate good init 

move, b 

2(a3), <a2)+ i 

set X threshold/scale/del ta 

move, b 

3Ca3), (a2> + 

set y threshold/scale/delta 

moveq 

#$10, dl j 

setup to determine if top/bottom 

sub. b 

0(a3),dl ; 

set y=0 at ? 

move, b 

dl, <a2)+ 


move, b 

#$7, <a2)+ ; 

set mouse button action 

move, b 

Ka3), (a2)+ ; 

mouse button parameter 

rts 






* 



* 

* 


EXTENDED RBP BIOS TIMER INIT CALL 





« 

* 

entry : 


* 




» 

* 

void 

xbtimerlid, control, data, intvec) 

« 

* 

word 

id, control, data 

# 


long 

intvec 

* 

* 



« 

* 


intvec - timer interrupt vector 

« 

* 


control - timer's control setting 

« 

* 


data - timer's data register setting 

* 



id - timer id a-0, b-1, c~2, d-3 
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* 



* 

* 

* 

•» 

* 

* 

* 

« 

* 

# 

* 

« 

« 

* 

* 


Special Note: « 

■a 

In the interest of preserving as many features for the user * 

in the future^ timer A should be reserved for the end— user * 

or independent software vendor ■'s application program. System * 
software or those application needing just a "tick" should * 

constrain themselves to timer C. which is adequate for delay ■» 

and other timing uses. Future hardware may or may not bring * 

out the timer A input line out. . . giving software developers * 

another useful aspect of the machine to utilize. * 

# 

The recommended usage of the timers is as follows: 

* 

Timer A — Reserved for end— users and stand— alone applications. * 

Timer B — Reserved for screen graphics, primarily. * 

Timer C - Reserved for system timing (GSX. GEM. DESKTOP, ET. AL) . * 

Timer D - Reserved for baud rate control of RS-232 port. * 

the interrupt vector is available to anyone. * 

* 




. glob 1 xb timer 


xbtimer 


moveq 
moveq 
moveq 
move, u 


move, w 


move, w 
bsr 
tst. 1 
bmi. b 
movea. 1 


moveq 

lea 


andi. 1 
move, b 
bsr 

X b t e X i t r t s 
xbtim dc.b 


. even 


#«0> dO 
#«0, d 1 
«$0. d2 
$4(sp ), dO 
«6(sp). dl 
4^8(sp ). d2 
setimer 
$a ( sp ) 
xbtex it 
$a ( sp )i a2 
««0. d 1 
xbtim, al 
#*ff, dO 
0(al. dO), dO 
ini tint 

«d. «8, «5. «4 


! setup the timer 

i if >*7fffffff then skip and exit 

i setup for initint call 
i c lear long 

{point to timer -> interrupt # translation tab 
.mask off the highest three bytes in register 
{setup for initint call 




* * 

* KEYBOARD TRANSLATION TABLE CHANGE CALL * 

* * 

* entry: 

* * 

* long key trans ( unsh i f t. sh i f t. caps 1 DC k ) * 

* long unsh if t, sh if t. cap sloe k * 

* # 




-1 signifies no change to vector 


exit; 


■» 

* 

* 
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■» 

# 

* 

# 


do. 1 ■- returns pointer to beginning of » 

key translation address pointers -tt 

order of pointers is; # 

unsh i f tedi sh i f ted j cap s-1 oc k ed # 

Note; buffer space for each table should $80! ! # 

* 





. globl 

k ey trans 

key 

trans 



tst. 1 

$4 ( s p ) 


bmi. b 

ktl 


move. 1 

$4(sp). skeytran(a5) 

ktl 

tst. 1 

$8(sp) 


bmi. b 

kt2 


move. 1 

$8(sp)i skeyshif(a5) 

kt2 

tst. 1 

$c ( sp ) 


bmi. b 

kt3 


move. 1 

$c (sp ) j skeycl (a5) 

kt3 

move. 1 
rts 

#skeytranj dO 


» ^ 

* RESTORE BIOS KEYBOARD TRANSLATION TABLE * 

»■ 

* 

♦entry: ^ 

# 

* 

♦ void bioskeys<) 




. globl 

b i os k ey s 

move. 1 

#keytran. skeytran(a5) 

move. 1 

#keyshif> skeyshif(a5) 

move. 1 

#keycl> skeycKaS) 

rts 



RETURN IKBD SUBSYSTEM INTERRUPT TABLE POINTER 


« 
« 
* 
» 
* 

dosound(ptr) 

ptr i points to start of sound interpreter table * 

* 


entry : 

void 

long 




.globl dosound 


dosound 
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ds r 


move. 1 c ur snd < a5 ) I dO 
move. 1 4(sp)idl 
bmi ds_r 

move. 1 dli cursnd (a5) 
c Ir. b timer (a5 ) 

r ts 


i return current status in DO. L 
; if neuj ptr < 0» then just return 
i (invalid ptr> so return) 

; setup new sound ptr 
i zap sound timer register 


* * 

* SET/RETURN PRINTER CONFIGURATION WORD * 

* * 

* entry: * 

* * 

« word setprt (p c onf ig ) * 

* word pconfig i sets/gets printer information word * 

# 
«• 


* 

« 


***■»■**»**»*******«•*********•«•**»***********************■•*'****'************** 


. globl setprt 


setprt 


nosetp 


move, w pconf ig (a5) j dO ; get current config word before we change it 

tst. w 4(sp) . see if we don't change the word 

bmi. b nosetp i don't set printer word 

move, w 4( sp ) » pc onf ig (a5) ; set printer config word 

rts 


******«■♦*■»•■»«■«••»■*♦*■»■«••«•♦«■•***•«■■»■*•»■•»■*■»■****♦***■*«•*■*•****************'************* 


* 



* 

* 


SET/RETURN KEY REPEAT VALUES 

# 

« 

It 

* 

entry : 


» 

* 



■H- 

* 

word 

kbrate(initialirepeat) 

* 


word 

initial* repeat 

* 

* 



* 

* 

initial 

determines the number of 50 hz cycles to wait before 

# 


a keyrepeat is to commence. repeat determines the interval 

« 

* 

between 

keyrepeats after the initial pause. 


* 


* 




kbrate 


k bra tel 


. globl kbrate 


move, w 

cdelayl (a5)* dO 

; get 

tst. w 

4(sp > 

< see 

bmi . b 

kbratel 

; don 

move, w 

4 ( sp ) 1 d 1 

i set 

move, b 

d 1. cdelay 1 (a5) 

1 set 

tst. w 

6 ( sp ) 

< see 

bmi . b 

kbratel 

; don 

move, w 

6( sp ) > d 1 

i set 

move, b 

dl* cdelay2(a5) 

i set 

rts 




current initial/repeat values 
if we don't change the word 
t set key repeat values 
key repeat values 
initial delay 

if we don't change the word 
t set key repeat values 
key repeat values 
subsequent delay 
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* 

» 

# 

* 

* 

# 

* 

* 

■«■ 

* 

# 

-»• 

* 

■«■ 

« 

■» 

* 

•»■ 

» 


RETURN POINTER TO IKBD/MIDI INTERRUPT VECTORS 


entry : 
1 ong 


ikbdvecsl) 

returns a pointer to the 
ikbd subsystem interrupt 
structure is as follows: 


midi interrupt 
vector table. 


vector and 
the table 


mid ivec 
vk b d err 
vmi d err 
statintvec 
ms i ntvec 
elk intvec 
joy intvec 


note : 


ms intvec 
call. s 
fatal wh 
gemdos. 


* 

* 

* 

* 

* 

* 

» 

* 


ds. 1 


1 


imidi interrupt handler 

vector 


ds. 1 


1 


; keyboard error handler 

address 

* 

ds. 1 


1 


imidi error handler add 

r ess 

* 

ds. 1 


1 


iikbd status interrupt 

vector 

* 

ds. 1 


1 


; mouse interrupt vector 


* 

ds. 1 


1 


irealtime elk interrupt 

vector 

* 

ds. 1 


1 


; joystick interrupt vec 

tor 

* 

■tf- 

is modi 

f ied 

via 

1 the initmouse system fi 

unction 

* 

i ince 

g em 

use 

5 th 

is vector, modifying it 

can be 


i 1 e r 

unn 

ing 

under gem. clkintvec is us( 

ed by 

■» 

its 

pr e 

-ini 

ted 

vector must be restored 

for 


emd os 

op 

erat 

ion. 

Caveat hacker! 


* 


ft 

* 




. g 1 ob 1 i kbdvec s 

i kbdvecs 

move. 1 #midivec<dO 
r ts 


# # 

* C Timer interrupt routine to process the PSG sound table * 

* * 
*##***■»•*■«•*«•************#*******•»■*****■«■*****»#**#***■»**•«■•»***■»■*****####*##* 
*+ ( Imd ) 

» timercint ~ timer c interrupt handler 

* divide 200 Hz interrupt frec^uency to 50 hz. and do; 

* sound handler processing 

* key-repeat processing; 

* control-g bell and keyclick if enabled via sound handler 

* system timer-tick handoff. 

* updates: tc_rot (every tick) 

«■ 

* imports: etv_timer (timer handoff vector) 

* _timr_ms (timer calibration value) 

* 

»- 


timercint 
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* 

* 


krl 


add. 1 
rol. tu 
bp 1 . b 


#1, _hz_200 
t c _r o t 
t_punt 


j. increment raw tick counter 
/‘rotate divisor bits 
/ if not 4th interrupt/ then return 


movem. 1 d0-d7/a0-a6/ ~ ( sp ) 


1 ea 

bsr. b 

btst. b 
beq. b 


*0, a5 
snd irq 


iaddress pointer to variable base 
i process sounds. . . 


#$1/ conterm(a5) ; check for key repeat enabled 
krexit ; not enabled 


process for repeat key function first because it can affect the sound 
table if enabled and the user is ■'using'. 

tst. b keyrep (a5) 

b eq. b krexit 

tst. b kdelay 1 (a5> 
beq. b krl 

subi.b #1/ kdelay 1 (a5) 
bne. b krexit 
subi. b #1/ kdelay2(a5} 
bne. b krexit 

move, b cdelay2(a5) / kdelay2(a5) 
move, b k ey rep (a5 ) / dO 
lea kbufrec (a5) / aO 

bsr aril6 /repeat key stroke and stuff into buffer 

krexit 
*+ < Imd ) 

* Call system timer vector 

* (first guy in the system daisy-chain) 

» 

*— 


move, w _timr_ms(a5), -(sp) » push #ms/tick 

move. 1 etv_timer (a5) / aO ; get vector 

jsr (aO) i call it 

addq #2, sp / cleanup stack 

tickl movem. 1 ( sp )+/ d0-d7/a0-a6 

t_punt bclr. b #5/ isrb+mfp /dear the interrupt channel 

r te 

* Quick & dirty sound stuff 

* Programmed by Oave Staugas 

* 14 Mar 1985 
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* 

* 

» 

# 

* 

It 

* 

* 

* 
it 
# 

snd irq; 


To start a sound, load the 32-bit address of the 

byte stream for that sound in 32-bit 
"cursnd". & zero the 8-bit "timer" 


Sound interrupt routine 
Called from timer C irq 


movem. J 
move. 1 
b eq 

movea. 1 
move, b 
beq. b 

* 

sub q. b 
move, b 
bra. b 

snd3: 

move, b 
bmi. b 

* 

move, b 
cmp i . b 
bne. b 

» 

move, b 
and i. b 
move, b 
and i . b 
or. b 
move, b 
bra. b 

snl : 

move, b 
bra. b 
H- 

* special case 

* 

snd2: 

addq. b 
bpl. b 

*■ 

cmp i . b 
bne. b 

t 

^ command 128 
t 


aO/dO-d 1 . - ( sp ) 
cursnd (a5) . dO 
snd 1 
dO. aO 

timer ( a5 ) . dO 
snd3 

ttl, dO 

do# timer ( a5 ) 
snd 1 

(a0)+# dO 
snd2 

do# giselect 
#7, dO 
sn 1 

(aO)+# dl 
#*3f# dl 
rddata# dO 
#*c0# dO 
dl# dO 
do# wrdata 
snd3 

( aO ) +# uir data 
snd3 

c ommand 


#1# dO 
snd5 

#129# dO 
snd6 


i get current sound ptr 

i br to exit if zero# inactive 

i ptr to aO 

icheck delay timer 

» br over delay timer update if not on 

itick off delay timer 
< save neu 

; skip sound update this time 

#pick up next sound command 
# if minus# go do special 

> else# register load command — select this 

# reg. 7 selected? 

# br if no 

i get data to urite to reg 7 
#aluiays leave i/o port settings alone 
; get mixer contents 
# mask off non-useful info. . . 

#• generate new setting 

# write data 

; go for next command 

» write next byte as data directly to reg 
; go for next command 


# was command 255? 

» br if yes — set delay timer 

> was command 128 (before increment) 
» br if not 
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i 12b — set aux data from next byte in streai 
i go for next command 


. command greater than 129 
i br if yes — must be set timer 


i 129 — select register 
i get increment step (signed) 
i add to aux data 
i get terminating value 
< load reg from data in auxd 
i reached end of cycle? 
i br if so 


still within loopi reset sound pointer to iterate for next irq 



sub q 
bra. b 

#4, aO 
snd4 

iback up sound ptr to repeat this command 
; update ptr St exit 

set 

delay timer 


nd5; 




^d4; 

move, b 
bne. b 
movea. w 

(aO ) +, timer (a5 ) 

snd4 

#0, aO 

•set delay timer from next byter in stream 
i if non-zero, real delay here 
> else, sound terminator — set ptr to null 

ndl ; 

move. 1 

aO, c ur snd ( a5 ) 

i update sound ptr 


movem. 1 
r ts 

< sp ) +, aO/dO-d 1 

, pop stac k St exit 


sound data. . . 


format; 

sound data usually is found in byte pairs, the first of which is the comma 
and the second is the argument. However, some commands take on more than 
1 argument. 


move, b ( aO ) +, au x d ( a5 ) 
bra. b snd3 

i command > 128 

nd6. 

cmp i. b #130, dO 
bne. b snd5 


command 129 


move, b 

(aO)+, g iselect 

move, b 

(aO)+, dO 

add. b 

dO, auxd <a5) 

move, b 

<aO)+, dO 

move, b 

auxd (a5) , wrdata 

cmp. b 

auxd (a5) , dO 

beq. b 

snd4 


cmd 

function 

argument ( s ) 

00 

load regO 

dataO 

01 

load regl 

dataO 

02 

load reg2 

dataO 

03 

load reg3 

dataO 

04 

load reg4 

dataO 

05 

load reg5 

dataO 

06 

load reg6 

dataO 

07 

load reg7 

dataO note 


b7 St b6 forced set for all data to r 
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08 

load reg8 

dataO 


09 

load reg9 

dataO 


OA 

load reglO 

dataO 


OB 

load regll 

dataO 


OC 

load regl2 

dataO 

-M- 

OD 

load regl3 

dataO 





* 

80 

init temp uj/ 

dataO 

* 

81 

loop defined 


* 


by 3 args 

dataO as 




datal as 




data2 as 






82-FF 

set delay 




timer 

dataO is 


# 

# 

bell snd ; 


register to load using temp 
increment/decrement (signed) of temp 
loop terminator value of temp 

# of counts till next update 
note: if dataO = 0. sound is terminated 


. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 
. dc. b 


0, *34 

1 . 0 
2 . 0 

3, O 

4, 0 

5, 0 

6 , 0 

7, *FE 

8 , *10 

9. 0 

10 , O 
11,0 
12, *10 
13, 9 
255, 0 


i enable envelope, ch a 


i envelope single attack 


* 


keyc 1 k ; 

. dc. b 0, *3B 
. dc. b 1,0 

. dc. b 2, O 

. dc. b 3, 0 

. dc. b 4, 0 

. dc. b 5, 0 

. dc. b 6, 0 

. dc. b 7, *FE 

. dc. b 8, *10 

. dc. b 13, *3 

. d c . b 11, *80 

. dc. b 12, 1 

. dc. b 255, 0 


; enable envelope, ch a 
i envelope single attack 


* 


^^3 
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» 

* Boot sector 

* Loads OS. IMG -From the disk and executes it. 

* 

* (01985 Atari Corp. 

* 

* 25-Feb-19S5 Imd Hey i It fits in 512 bytes.... 

* 2-Apr-1985 Imd Fixed bugs (it works now) 

* 

# 

text 


* 

* BPB fields: 


r ec 5 i I 

equ 

0 

; size of a sector in bytes 

c Is iz 

equ 

2 

i number of sectors/cluster 

clsizb 

equ 

4 

i size of a cluster in bytes 

rd 1 en 

equ 

6 

i root directory length 

f si z 

equ 

8 

i size of a FAT (in sectors) 

fatrec 

equ 

10 

i start of 2nd FAT 

datrec 

equ 

12 

i sector# of first data sector 

numc 1 

equ 

14 

i number of clusters on media 

bf lags 

equ 

16 

; flags 


« 

* OS variables; 
« 


_membot 

equ 

*432 

i pointer to bottom of memory 

_cmd 1 oad 

equ 

*482 

; load-command switch 

bootdev 

equ 

*446 

i default boot device 


» 

Executable 

code/ 



random garbage^ 


jr 

and a serial number: 



bra. 

s start 

branch to code 


d c . b 

'Loader ' 

name of the loader 


dc. b 

*00/ *00/ *00 

24-bit serial number 

« 

80 track/ 

single-sided BPB 


* 

( Identical 

to "DG-1" BPB) 



dc. b 

*00, *02 

#b y tes/ sec tor 


dc. b 

*02 

#sect or s/cluster 


d c . b 

*01/ *00 

#reserved sectors 


dc. b 

*02 

#of FATs 


dc. b 

*70, *00 

#of root directory entries 


dc. b 

*dO, *02 

#of sectors on media 


dc. b 

*f8 

media descriptor byte 
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dc. b 

*05, *00 

i #sectors/FAT 

dc. b 

*09, *00 

; #sec tors/trac k 

dc. b 

*01, *00 

i #sides on media 

d c . b 

*00, *00 

; #hidden sectors 

even 




* 

* Boot parameters 

* 


execf Ig ; 

dc. ui 

0 

Idmode; 

dc. Ui 

0 

s s e c t ; 

d c . Ui 

0 

nsec ts 

d c . Ui 

0 

Idaddr; 

dc. 1 

*40000 

fatbuf ; 

dc. 1 

*8000 

f name : 

dc . b 

"OS 


# 12345678901 


> copied to _cmdload 
i 0:load file< l;load sectors 
i starting sector# to load 
f #sectors to load 
i load address 

i good place for FAT/d irec tory 
IMG" i filename to load (11 chars) 


even 


buffer 


«•+ 

* Neuter Booter 
•» 


* 

Register usage; 


* 

A6 -> FAT buffer 


« 

A5 -> BPB 


* 

A4 -> d irectory/load 

buffer 

* 

A3 -> current read address 

# 

AO. . A2 used by traps 





* 

D7 = current cluster 

number 

* 

D6 = starting sector/sector 

* 

D5 = ending sector 



D4 = sector count 



D3 = current sector 



DO. . D2 used by traps 



*- 

start: 


number 




fbuf 1: 


move. Ui 

execflg(pc), _cmdload 

> set command-load flag 

Get BPB 

for boot device: 


move. Ui 

b ootd ev, - ( sp ) 

> dO = getbpb(bootdev) 

move. Ui 

#7, -(sp ) 


trap 

#13 


addq 

#4, sp 


tst. 1 

dO 

i if(dO == NULL) returni 

beq 

_fail 

i ( I give up ) 

move. 1 

dO, a5 

i a5 -> BPB 

1 ea 

fatbuf (pc }/ aO 

; if(fatbuf == NULL) 

tst. 1 

(aO) 

» fatbuf = _membot 

bne 

fbuf 1 


move. 1 

_membot, (aO) 


move. UI 

f si z (a5) , dO 

; a4 = fatbuf + (aSCfsizl 

Isl. UI 

#8, dO 


add. 1 

dO, dO 



« 9) 
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move, uj dO. a4 

add. 1 f atb uf ( p c ) / a4 i a4 — > directory buffer 


* Which mode? 



move, w 

1 dmode ( p c ) < dO 

i test mode switch 


beq 

Idf ile 

; (load file) 

» 

— Load and 

exec sectors: 



move, w 

ssec t ( p c } 1 d<b 

i starting sector# 


move, w 

nsects(pc)> d4 

i #sectors to load 


move. 1 

Idaddr (pc ) < a3 

i load— address 


bra 

l_done 

; load sectors/ execute 'em 


*- 

Read FAT 

and directory 

sectors 

into memory: 

1 df i 1 e ; move, w 

fatrec (a5) » d6 


i 

start = 2nd FAT 


move, w 

fsiz (a5), d4 


i 

count = aSCfsizl + aSCrdlenl 


add. w 

rd len(a5) / d4 





move. 1 

fatbuf ( p c ) j a3 


• 

address = the FAT buffer 


bsr 

readmu 1 t 


J 

read sectors 


bne 

_fail 




*- 

Setup to 

search for the 

image 

file: 



move. 1 

a4/ aO 


i 

aO -> directory buffer 


move, w 

rdlen(aS)/ dO 





Isl. w 

#8/ dO 





Isl. w 

#1/ dO 



aO += rdlen * 512 


lea 

( aO/ dO. w ) / aO 



aO -> end of directory buffer 


lea 

fname (pc ) / al 



al -> file to open 

*- 




b. 

_3: sub. w 

#«20. aO 



backup one directory entry 

b. 

1 : cmp . 1 

a4/ aO 



if(aO < a4) then fail 


bit 

_fai 1 



(file not found, so punt) 


moveq 

#10, dO 



dO = dbra length of file name 

b. 

_2: move, b 

(aOi dO. w), dl 



compare filename 


cmp. b 

(al, dO. w), dl 





bne 

b 3 


i 

try next entry on match failure 


dbra 

do, b 2 


i 

( try all chars ) 

*- 

Get (byte 

-reversed) cluster number; 



moveq 

#0, d7 



get starting cluster number 


move, b 

27(a0), d7 



from byte-reversed entry in 


Isl. w 

#8, d7 



the directory entry 


move, b 

26(a0), d7 




*- 

Setup for 

reading the file: 




move. 1 

fatbuf ( p c ) , a6 



a6 -> FAT 


move. 1 

Idaddr(pc), a3 



a3 -> read address 


c Ir. 1 

d4 



no sector count 


*+ 

* Read the file. 

* Read as many sectors as possible at once (try to suck it 

* in with one rwabs call. . . ) 

* 
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* 

1 1 : 




* 

1 - 4 : 

1 _ 3 : 

* 


1 _ 2 : 

» 

l_done; 

Id ex; 


fail: 


compute sector number 
cmp. w #$OffO. d7 
bge l_done 


move. UI 

d7, d3 

sub q 

#2, d3 

mu 1 u 

clsiz(a5), d3 

add. UI 

datrec (a5) , d3 

if "break" in chain of 

tst. UI 

d4 

beq 


cmp. UI 

d5, d3 

beq 


b sr 

r eadmu 1 t 

bne 

__f 3 i 1 

Isl. 1 

#8, d4 

Isl. 1 

#1, d4 

add. 1 

d4. a3 

star tup 

a neui chunk of 

move. UI 

d3. d6 

move. UI 

d3, d5 

clr. 1 

d4 

ad d . UI 

clsiz(a5)< d4 

a d d . UI 

clsiz(a5)i d5 


from cluster number; 

i end of chain? 
i ( y es ) 

i d3 = d7 - 2 

; d3 *= c 1 s i z 
; d3 += datrec 

sectors# read some in. 

i any old sectors? 
i (no) 

i can this one be appended? 
i ( y es ) 

# read old sectors 
i (punt on read failure) 

i a3 +== count * 512 


contiguous sectors: 

» start = current sector 
; end = current sector 
» count = 0 

# append current sector to 
» the contiguous chunk 


compute 
move, uj 
1 sr 111 
add . ui 
move, b 
1 S 1 . UI 
move, b 
b tst 
beq 
1 sr . UI 
and. UI 
move. UI 
bra 


next cluster number' 
d7, d2 
#1, d2 
d7, d2 

1 ( a6> d2. UI ) > d 1 

#e# di 

( a^# d2. UI ) # dl 
#0, d7 
1_2 
#4, dl 
#*Offf, dl 
dl, d7 
1 1 


read any leftover sectors; 
tst. UI d4 

beq 1 d _e X 

bsr readmult 

bne _fail 

move ! 1 dad dr ( p c ) , - ( sp ) 

r ts 


; d2 = (d7 » 1) + d7 


get high byte 
sh i f t it up 

get loui byte (dl = raui cluster entry) 
if (d7 & 1 ) dl »= 4 


i dl &= *Offf 
i d7 = dl 

# read next cluster 


i any sectors left? 
i (nothing more to read) 
i read remainder (usu. entire file) 
i (punt on read failure) 
i jump to stuff uie just loaded 


could not boot; complain 
c Ir. 1 dO i error = 0 


9^7 
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r ts 


*+ 

* Read sectors from boot device 

* Passed: d6 = logical sector number 


* 

* Returns: 

* 

d4 = count 
a3 -> address 

NE: failure 

EQ; success 



#- 

read mult: 




move, w 

bootdev) -( sp ) 

i 

device = bootdev 

move, u 

d6i - ( sp ) 

f 

record = d6 

move, ui 

d4j — ( sp ) 

i 

count = d4 

move. 1 

a3i - ( sp ) 

j 

ad dr = a3 

read ; c Ir . uj 

- ( sp ) 

i 

operation = READ 

move, ui 

#4j - ( sp ) 

i 

function = ruiabs 

trap 

#13 

i 

bios trap 

add. u 

#14, sp 

i 

cleanup stack 

tst. u 
rts 

dO 

i 

test return code 


# 

copyrt: 

dc. b 

'Neuter Booter 13, 10 


dc. b 

'<01985 Atari Corp. ',13,10 


dc. b 

0 
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loadable equ 1 ; nonzero for loadable driver 



* 

«■ ST SASI hard disk driver 

* <01985 Atari Corp. 

* 

* 

* 9-Apr-1985 Imd Hacked it up. "Geei it seems to u/ork ..." 

14-Apr-1985 Imd linked with BIOS (-a-»*FOR NOW*#*) 

* 20-Apr-1985 Imd hacked for WD controller (nouj» wired. . . > 

* 

# : 


flock 

equ 

*43e 

FIFO lock variable 

hdv_ini t 

equ 

*46a 

h d v_i n i t ( > 

hdv_bpb 

equ 

*472 

hd v_b p b ( dev) 

hdv_rw 

equ 

*476 

hdv_rw(rw, buf, count, recno, dev) 

h d v_b o o t 

equ 

*47a 

hdv_boot ( ) 

hdv_mediach 

equ 

*47e 

h d v_med iach<dev) 

_drvb its 

equ 

*4c2 

block device bitVector 

_dskbuf p 

equ 

*4c6 

pointer to common disk buffer 

nretr ies 

equ 

3 

#retr ies-1 





lnstidll0T' 


. globl 

i_sasi 



i_sasi: nop 



stupid assembler 

ifne loadable 




c Ir. 1 

— ( sp ) 


it'sabird... 

move, w 

#*20, - 

( sp ) 

... i t ' s a p lane . . . 

trap 

#1 


... no, its: 

addq 

#6, sp 

, 

SOOUPERUSER ! 

move. 1 

do, savssp 

"Faster than a prefetched opcode.. 

end c 




bsr 

sasi 

init 

kick control ler 

tst. w 

dO 



bmi 

i sasq 

. 

punt — disk didn't respond 

c Ir. 1 

dO 



or. 1 

_drvb i ts, dO 

include C: bit in devVector 

or. 1 

#*4, dO 



move. 1 

dO, drvbits 



c Ir. 1 a5 > 

move. 1 hdv_bp b ( a5 ) I o_bp b 

move. 1 hdv_rw(a5) ^ o_rw 

move. 1 hdv med i ac h < a5 ) > o mediach 


zeropage ptr 

i save old vectors 


move. 1 #hbpb. hdv_bpb <a5) 

move. 1 #hrw. hdv_ruj<a5) 

move. 1 #hmediachi hdv mediach<a5) 


i install our new ones 
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isasq: nop 


stupid assembler 


ifne loadable 

move. 1 savssp»-<sp) 
move, w #$20. -(sp) 
trap #1 
addq #6. sp 

endc 

rts 


become a mild mannered user process 




Front End 


*+ 

LONG hbpb(dev) — return ptr to 

* 


* Passed: 

dev 4 ( sp ) . U 

* 



#— 



hbpb : 

move, u 

4( sp ) . dO 


move. 1 

o_bpb. aO 


lea 

_sasi_bpb(pc). al 


bra 

chec k_dev 


*+ 


* LONG 

rui(ruj. buf. count, recno. 

* 


» Passed; dev $e(sp).M 

» 

recno $c ( sp ) . W 

* 

count $a ( sp ) . W 

♦ 

buf 6< sp } . L 

* 

rui 4( sp ) . U 

# 


*- 


hrtu; 

move, u) $e<sp).dO 


move. 1 o_riu» aO 


lea _sasi_ru»(pc ) . al 

bra check dev 


#+ 

* LONG mediach<dev} 

«• 

* Passed: dev 4(sp>.W 

* 

*— 

hmed iach ; 

move, ui 4(sp ). dO 


BPB (or NULL) 


dO = devno 

aO -> pass-through vector 
al -> our handler 
do it 


ev) 


dO = devno 

aO -> pass-through vector 
al — > our handler 
do it 


^ 7 ^ 


; dO 


devno 
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move. 1 o_mediach,aO ; aO — > pass-through vector 

lea _sas i_med iac h < p c ) 1 a 1 ; al -> our handler 


#+ 

« 

» 

* 

« 

« 

* 

» 

* 


chec k_dev 
Passed : 


Jumps-to: 


use handler; or pass vector through 

dO. uj = device# 

aO -> old handler 

al -> new handler 

a5 -> *0000 (zero-page ptr) 

(al) if dev in range for this handler 
(aO) otherwise 


*— 

check_dev: 

cmp. w #2i dO 
b n e c h k d _f 

move. 1 al< aO 
chkd_f: jmp (aO) 


; devnos match? 
i ( no ) 

; yes — follow success vector 
i doit 


* Medium level driver 

*+ 

* _sasi_init 

* Passed; 

* Returns: 

* 

* 

«— 

.globl _5asi_init 
sasi init: 


- initialize SASI dev 
nothing 
dO < 0: error 
dO ==0: success 


* read the boot sector about ten times 


move, w 

#9; d7 



isasl ; c Ir. w 

- ( sp ) 

i 

d ev = 0 

move. 1 

_dskbufpj-(sp) 

i 

use disk buffer 

move, w 

#1, -(sp ) 

f 

count = 1 

clr. 1 

-( sp ) 

i 

sector = 0 

b sr 

bread 

} 

read it 

add. w 

#12; sp 

} 

cleanup stack 

tst. w 

do 

t 

test read error return 

dbmi 

d7; isasl 

i 

loop while no error 

bmi 

i sas2 

i 

(punt on error) 

b sr 

wd setup 

i 

initialize UD parms 

c Ir . 1 

dO 



isas2: rts 




*+ 




* _sasi_bpb — return BPS for hard drive 



* Synopsis: 

LONO _sasi_bpb < 




fV/ 
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* 

* Returns: 

* 

#- 

. g lob 1 
_5as i_b p b : 

move. 1 
r ts 


WORD devi 

IMULLj or a pointer to the BPS buffer 


_s a 5 i _b p b 
#thebpb> dO 


*+ 

* _sasi_rui - read/turite hard sectors 

* Synopsis: sasi rui(ruii buf» counts recnoj dev) 




* Passed; 

dev $e ( sp ) . W 

* 


recno *c < sp ) . W 



count $a( sp ) . W 

* 


buf 6(sp ) . L 

# 


rw 4 ( sp ) . W 

* 







. g 1 ob 1 

_sas i_rw 

_sasi_ 

rw; 



move, w 

#nretries. retrycnt 

sasrwl 

moveq 

#0, dO 


move, w 

$c ( sp ) > dO 


move, w 

$a ( sp ) « d 1 


move. 1 

<b( sp ) > d2 


move, w 

4(sp ), d3 


c Ir . w 

-( sp ) 


move. 1 

d2i — ( sp ) 


move, w 

dl« -(sp ) 


move. 1 

dOi - ( sp ) 


tst. w 

d3 


bne 

sasrw3 


bsr 

_hread 


bra 

sasrw2 

sasrw3: 

bsr 

_hwr i te 

sasrw2: 

add. w 

#12, sp 


tst. 1 

do 


beq 

sasrwr 


subq. w 

#1, retrycnt 


bpl 

sasrwl 

sasrwr ; 

r ts 



i setup retry counter 

i coerce word to long^ unsigned 
i sect. L 
; count. W 
; buf. L 
; rw 

i dev = 0 
; buf 
i count 
» sect 

i read or write? 

; (write) 
i read sectors 

i write sectors 
; (cleanup stack) 
i errors? 
f no — success 
i drop retry count and retry 


*+ 

* _sas i_med iac h — see if hard disk media has changed (it never does) 

* Synopsis: _sasi_med iach ( dev ) 

* WORD dev; 

* 


9 /^ 
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» Returns; OL 

* 

#— 

globl _sas i_med i ac h 
_sasi_med iach : 

c Ir. 1 dO 
r ts 


■«•+ 

* BPB for 10MB drive 

* Approximate only. Tweak me. 

*— 

thebpb; dc.w 512 

dc. w 2 

dc . w 1024 

dc . w 16 

dc. w 41 

d c . (j 42 

dc. ui 99 

dc. w 10300 

dc. tu 1 


#bytes/sector 
#sectors/c luster 
#bytes/cluster 
rdlen (256 root files) 

FATsiz (10300 FAT entries) 
2nd FAT start 
data start 

#clusters (approximate here) 
flags (16-bit FATs ) 


Low-level driver 


*- Globa Is 


flock 

equ 

*43e 


_hz_200 

equ 

*4ba 

i 


* Hardware; 



wdc 

equ 

*f fS604 

wd 1 

equ 

*ff8606 

dmah i 

equ 

*ff8609 

dmami d 

equ 

dmah i +2 

d ma 1 0 w 

equ 

d mam id +2 

gpip 

equ 

*fffa01 


FIFO lock variable 
200h z system ticker 


* Tunable; 

1 timeout 
stimeout 


equ *10000 

equ *10000 


; long— timeout 
; sh ort— t imeout 


#+ 

* void _qdone() - Wait for operation complete 

* Passed; nothing 

* Returns; EQ: no timeout 

* MI; timeout condition 


973 
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* 



* Uses: 


DO 




_qd one : 

move. 1 

#ltimeout. tocount 

qd 1 : 

subq. 1 

#1 . tocount 


bmi 

qdq 


move, b 

g p i p . dO 


and . b 

#$20. dO 


bne 

qd 1 


move, w 

#$80. wdl 


nop 
tst. w 

wd c 


moveq 
r ts 

#0, dO 

qdq: 

moveq 
r ts 

#-l. dO 


i drop timeout count 
i (i give up> return NE) 
i interrupt? 

> (not yet) 

i luhy do we need to do this 
; to the hardware??'? 

i return EQ (no timeout) 

i return —1 (error) 


*+ 

* void _se 1 ( ) 

* Fiddle with SASI lines 


Passed; 
* Uses: 


noth ing 
nothing 

*$88. wdl 
*«20. wdc 
#$8a> wd 1 
#$01. wdc 
#$88. wdl 
#$00. wdc 
#$8a. wd 1 
#$01. wdc 


se 1 : 

move, w 
nop 

move, w 
nop 

move, w 
nop 

move, w 
nop 

move, w 
nop 

move, w 
nop 

move, w 
nop 

move, w 
r ts 


; _FDC + _HDCS + CA1=0( select__latch ) 
i iomode Rd=data. Wr=control 1 er 
' _P0C + _HDCS + CA 1 = 1 ( se 1 ec t_i 0 ) 

; set direction = l(output) 

' _FDC + _HDCS + CA1=0( select_latch ) 
i iomode Rd=control ler. Mr=data 
* _FDC + _HDCS + CA1=1 ( se 1 ec t_reg ) 

; write a $01 to data (?) 


*+ 

* void _reql() 

* Wait for /REQ line to go low 

* 

Passed: nothing 

* 

* Returns: EQ: ok 

* MI. timeout condition 

« 

* Uses: DO 

*— 


9 7 / 
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_reql : 

move. 1 

#stimeoutj tocount 


move, w 

#*88. wdl 


nop 

move, w 

#*20. wdc 


nop 

move, w 

#*8a. wd 1 

reql 1 ; 

subq. 1 

#1 » tocount 


bmi 

reqle 


move, w 

wdc. dO 


and. w 

#2. do 


bne 

reqll 

reqle: 

rts 

moveq 

#-l, dO 


rts 



*+ 

* UORD _endcmd() 


* Wait for end 

of SASI command 

* Passed; 

nothing 


* 

* Returns; 

EQ; success 

( error 

« 

MI; timeout 



NE; failure 

(SASI 

» 

* Uses; 

DO 


*— 

_endcmd ; 

bsr 

_qdone 


bmi 

endce 


move, w 

#*88. wdl 


nop 

move, w 

#*00. wdc 


nop 

move, w 

#*8a. wd 1 


nop 

move, w 

wdc. dl 


bsr 

_reql 


bmi 

endce 


move, w 

#*88. wd 1 


nop 

move, w 

#*00. wdc 


nop 

move, w 

#*8a. wd 1 


nop 
tst. w 

wdc 


move, w 

dl. dO 


and. w 

#*00ff . dO 


rts 

•ndce; moveq 

0 

1 



i setup timeout counter 
i select SASI status register 


i drop timeout count 
* (return NE on timeout) 
i get SASI status 
» REQ 1 ow? 
i (not y et ) 


code in DO. W) 
error code in DO. W) 


j wait for operation complete 
* (timed-^out« so complain) 

i get completion error code 


i wait for SASI *00 
*• (timeout) 


; do = error code 
• (clean it up) 


97J' 



jul 9 13: 12 1985 sasi. s Page 8 


rts 


#+ 

* _hinit<dev) 

» MQRD dev: 

* Initialize hard disk 

* 


* Returns: 

41 . 

-1 if hard disk not there 






_h i n i t ; 

st 

flock 

i 

lock FIFO 


tst. b 

gpip 

i 

magic 


b sr 

_sel 




moveq 

#5. dO 



hi_l: 

bsr 

_reql 




move, uj 

#«OOi uidc 




dbra 

dO» hi_l 




b sr 

endcmd 




c Ir. tu 

flock 

i 

unlock FIFO 


bra 

_hdone 

i 

cleanup after IRQ 

*- 





* _hread ( sectno 

1 countj buf< dev) 



# LONG 

sectno: 

4( sp ) 



* WORD 

count: 

8<sp ) 



* LONG 

buf; 

$a(sp) $b«high 

p 

$c==mid« $d = loui 

* WORD 

dev: 

$e <sp ) 



* Returns; 

-1 on timeout 



« 


0 on success 



« 


nonzero on error 



*- 

. globl 

_hread 



_hread : 

st 

flock 

t 

lock FIFO 


move. 1 

♦a<sp).-<sp) 

i 

set DMA address 


bsr 

_setdma 




addq 

#4i sp 




bsr 

_sel 

9 

select magic 


bmi 

_hto 




bsr 

_reql 

9 

wait for "^REQ 


bmi 

_hto 




move, lu 

#«08, uidc 

9 

read cmd 


bsr 

_reql 

9 

"^REQ 


bmi 

hto 




move, b 

5(sp). dO 

i 

construct sector# 


move, b 

$e ( sp ) > d 1 

i 

ORed with devno 


Isl. b 

#5. dl 




or. b 

dl> dO 




move, ui 

dO< ufdc 

9 

write MSB sector# 


bsr 

_reql 

9 

'^REQ 


97 ^ 



write MidSB sector# 
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; ~REQ 

i write LSB sector# 


bsr _reql i write sector count 

bmi _hto 

move, w 8(sp>iWdc 

bsr _reql 

bmi _hto 

move, w #$90i wd 1 
nop 

move, w #$190<wdl 
nop 

move; w #$90<wdl 
nop 

move, w 8( sp ) I wdc 
nop 

move, w #$8aiwdl 
nop 

move, w #$07>wdc 
nop 

move, w #$00«wdl 
bsr _endcmd 

Wirx: clr. w flock 

bra hdone 


*- 


* _hwr i te ( sec tnoi count> buf> dev) 


* LONG sectno; 

4( sp ) 


* WORD count; 

8(sp ) 


* LONG buf; 

$a(sp) $b=high> 

^c=mid< $d=low 

* WORD dev; 

♦e ( sp ) 


* 

*- 

. glob 1 

_h wr i t e 


_h wr i t e : 

st 

flock 

; lock FIFO 

move. 1 

$a ( sp ) » -< sp ) 

i set DMA address 

bsr 

_s e t d ma 


addq 

#4/ sp 


bsr 

_se 1 


bmi 

_h to 


b sr 

_reql 


bmi 

_h to 


move, w 

#$0a< wdc 


b sr 

_reql 


bmi 

h to 


move, b 

5(sp), dO 



> toggle data direction 


i write sector count to DMA chip 


i end-of-command (+fast_step) 


i unlock FIFO 
; cleanup after IRQ 



?/7 


Ju 1 
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move, b 

$e ( sp ) < d 1 

i 

ORed iDith devno 



Isl. b 

#5, dl 





or. b 

dl, dO 





move, w 

dO> iDd c 





bsr 

_reql 





bmi 

_hto 





move, b 

6(sp), dO 





move, u) 

dO< iDdc 





bsr 

_r e q 1 





bmi 

hto 





move, b 

7(sp ). dO 





move, u 

dO< IDdc 





b sr 

_reql 

i 

sector count 



bmi 

_h to 





move, uj 

8( sp ) 1 uidc 





bsr 

_reql 





bmi 

hto 





move. ID 

#«90, IDd 1 





nop 






move. ID 

#$190> iDdl 





nop 






move. ID 

S ( sp ) < Old c 

i 

sector count 



nop 






move. ID 

#«18a, IDdl 





nop 






move. ID 

#♦07. IDdc 

i 

end-of-command (+fast_step) 

1 -^ 


nop 






move. ID 

#«100. IDdl 





bsr 

endcmd 




hbfx : 

c Ir. ID 

flock 

f 

unlock FIFO 



bra 

_hdone 

i 

cleanup after IRQ 



#+ 




* _iDd_format - 

format MD hard disk 



* Passed: 

nothing 



* Returns: 

Ot or -N 



* Uses: 

<..?..> 











. globl 

_ttid_f ormat 



IDd format: 




st 

flock 



bsr 

sel 



bmi 

hf X 



b sr 

_reql 



bmi 

hf X 



move. ID 

#4< IDdc 



bsr 

reql 



bmi 

hf X 



move. ID 

#0# IDdc 



b sr 

_reql 



bmi 

hf X 

- 
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move, ut 

#0, uidc 

b sr 

reql 

bmi 

hf X 

move, ui 

#0< uidc 

bsr 

_reql 

bmi 

hf X 

move, u 

#0i uidc 

bsr 

_reql 

bmi 

hf X 

move, w 

#$190> uidl 

nop 

move. UI 

#$90. uid 1 

nop 

move. UI 

#1. uidc 

nop 

move. UI 

#$8a. uidl 

nop 

move. UI 

*$07. uidc 

nop 

move. UI 

«$00. uid 1 

bsr 

endcmd 

c Ir. UI 

flock 

bra 

_hdone 



♦+ 

# _uid_setup — setup parameters for WD hard disk 

« 

♦- 

. globl _uid_setup 
_uid_setup : 

st flock 

pea uid_parms ( pc ) 

bsr _setdma 

addq #4« sp 


bsr 

_sel 

bmi 

uidx 

bsr 

_reql 

bmi 

uid X 

move. UI 

#$0c. uidc 

bsr 

_reql 

bmi 

uid X 

move. UI 

*$00. uidc 

bsr 

_reql 

bmi 

uid X 

move. UI 

*$00. uid c 

bsr 

_reql 

bmi 

uid X 

move. UI 

*$00. uidc 

bsr 

_reql 

bmi 

Uid X 

move. UI 

*$00. uidc 


97f 
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b sr 

_reql 

bmi 

u)d X 

move, taj 

#*90, iDd 1 

nop 

move. u> 

#*190, iDd l 

nop 

move, uj 

#*01 , IDd c 

nop 

move, ui 

#*18a. iDdl 

nop 

move, u 

#*00, uid c 

nop 

move. ID 

#*100, IDdl 

b sr 

_end cmd 

c Ir. ID 

flock 

bra 

hdone 


* parameters for 10MB UD 

uid_parms; dc. b $02, *64, *02, *01. *31, 401, *31, *0b 


#+ 

» void _setdma(addr) 
* LONG addri 
*- 

setdma; 


move, b 

7( sp ) , dmaloiD 

move, b 

6(sp ) , dmamid 

move, b 
rts 

5( sp ) , dmah i 


_hto: moveq 

_hdone: move, id 
tst. ID 
rts 

#-l, dO 
#*80. IDd 1 
uidc 

i indicate timeou 

bss 

savssp : 

ds. 1 

1 

i (saved SSP) 

tocount; 

ds. 1 

1 

i timeout counter 

retrycnt: 

ds. ID 

1 

; retry counter 

o_ini t: 

ds. 1 

1 

o_bpb : 

ds. 1 

1 


o_rui: 

ds. 1 

1 


o_mediach ; 

ds. 1 

1 


dma: 

ds. 1 

1 

i current DMA loc 

c ount : 

ds. ID 

1 

i current sector ( 

sect; 

ds. 1 

1 

i current logical 


ount 

sector 




